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An  Invariant  Imbedding, Orders -of -Scattering  Approach 

to  Particle  Transport  in  a Slab 


1.  INTRODUCTION 


Invariant  imbedding  theory  has  been  applied  extensively  to  particle  transport 
problems,  especially  in  nuclear  particle  shielding  calculations.  The  theory  was 
originated  by  Ambarzumian1  in  1943  as  a means  of  estimating  reflection  of  light  by 
foggy  media.  A later  adaptati-  n for  use  in  particle  transport  calculations  was  de- 
veloped by  Bellman,  Kalaba,  and  Wing2  in  19  60.  Since  that  time.  Bellman, 
Mingle,4  and  others  have  applied  invariant  imbedding  theory  extensively  to  des- 
cribe radiative  transfer  in  slabs,  most  often  for  radiation  shielding  and  dosimetry 
calculations.  A principal  advantage  of  the  invariant  imbedding  approach  is  that  it 
is  a direct  calculation  of  the  current  of  particles  emerging  from  a scattering  medi- 
um and  does  not  require  the  calculation  of  the  particle  flux  at  all  points  within 
the  medium.  Conventional  invariant  imbedding  calculations  have  the  disadvantage 
that  they  often  prove  to  be  computationally  burdensome,  hence  their  practicality 
has  been  somewhat  limited.  The  word  "conventional  is  applied  here  to  denote  the 
(Received  for  publication  13  January  1976) 

1.  Ambarzumian,  V.  A,  (1942)  Soviet  Astron,  AJ,  19:1. 

2.  Bellman,  R. , Kalaba,  R. , and  Wing,  G.  M.  (1960)  J,  Math,  Phys.  U2P 0. 


3.  Bellman,  R. , Kalaba,  R.,  and  Prestrud,  M.C.  (1963)  Invariant  Imbedding  and 
Radiative  Transfer  in  Slabs  of  Finite  Thickness,  American  Blsevier, 


4.  Mingle,  J.O.  (1967)  Nucl.  Sci.  Eng.  28:177. 
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class  of  calculations  which  at  once  include  all  orders  of  scattering,  zero  to  infinity, 
and  for  which  the  dependent  variable,  the  particle  current,  is  an  explicit  function 
of  particle  energy,  position,  and  direction  of  motion.  For  this  reason  invariant 
imbedding  has  not  been  extensively  applied  to  such  problems  as  slowing  down  of 
neutrons  and  electrons  in  scattering  media.  This  has  not  proven  to  be  a serious 
handicap  at  high  energies  where  ccntir.uous  slowing  down  theory  can  be  applied. 

At  low  energies,  however,  the  success  achieved  by  alternative  methods  is  not 
nearly  as  formidable.  Prominent  among  these  alternatives  are  methods  spanning 
the  wide  range  of  sophistication  from  the  direct  solution  of  the  Boltzmann  equation 
to  Monte  Carlo  calculations.  The  Boltzmann  approach  consists  of  a flux  calcula- 
tion, which  even  for  the  case  of  isotropic  scattering  is  not  trivial.  For  scattering 
other  than  isotropic,  spherical  harmonic  expansions  can  be  performed  on  either  the 
differential  or  integral  form  of  the  Boltzmann  equation.  This  approach  becomes 
impractical  when  the  scattering  anisotropy  extends  beyond  first  order.  At  the 
other  extreme,  Monte  Carlo  calculations,  while  providing  a relatively  certain 
means  of  achieving  the  solution  in  most  cases,  can  be  costly  when  high  accuracy 
is  required. 

A class  of  particle  transport  problems  exists  for  which  a variation  of  the  in- 
variant imbedding  method  seems  most  appropriate.  This  situation  can  arise  when 
the  average  energy  of  a particle  can  be  reasonably  well  correlated  with  the  number 
of  collisions  it  has  undergone  in  the  course  of  transport  through  a scattering  medium 
For  these  cases  a method  for  calculating  emergent  nth  scattered  particle  currents 
from  scattering  media  has  been  developed  which  combines  an  orders -of-scattering 
formulation  with  the  familiar  invariant  imbedding  method.  5*  The  equations  for  the 
transmitted  and  reflected  current  are  evolved  through  the  consideration  of  the  de- 
pendence of  the  nth  scattered  current  on  the  lower  order  scattered  currents.  The 
final  expressions  for  these  currents  assume  the  form  of  coupled  integral  incursion 
relations  expressing  the  interdependence  of  the  currents  of  the  various  scattering 
orders.  In  the  sections  that  follow,  these  invariant  imbedding  recursion  relations 
will  first  be  developed  for  the  simple  one -dimensional  case  or  rod  model,  and  then 
for  the  case  of  angle -dependent  particle  transport  in  a slab  geometry.  In  the 
former  case  comparisons  are  made  with  the  exact  analytic  result  for  the  total  trans- 
mitted and  reflected  currents  obtained  from  the  classical  rod  model,  and  for  the 
case  of  scattering  in  a slab  geometry,  the  results  are  compared  with  those  obtained 
by  two  independent  methods,  the  solution  of  the  one-dimensional  Boltzmann  equation 


38:53. 


5.  Mingle,  J.O.  (1972)  J.  Math.  Anal.  Appl.  _ 

♦ Mingle5  developed  an  orders -of -scattering  theory  for  isotropic  scattering  based 
on  an  expansion  of  infinite  order  transmitted  and  reflected  currents  in  terms  of 
their  finite  order  components.  He  applied  this  formulation  to  the  determination 
of  critical  multiplication  factors  in  the  slab  geometry. 
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for  isotropic  scatter  and  a Monte  Carlo  calculation.  The  application  of  the  orders - 
of-scattering  invariant  imbedding  method,  henceforth  to  be  referred  to  as  OOSII  , 
to  anisotropic  scattering  situations  is  then  demonstrated  for  three  cases,  strong 
anisotropy  such  as  encountered  in  the  elastic  scattering  of  neutrons  from  hydrogen, 
mild  anisotropy  such  as  encountered  in  the  elastic  scatter  of  neutrons  from  carbon 
nuclei,  and  extreme  anisotropy  such  as  can  occur  in  the  scattering  of  low  energy 
(hot)  electrons  by  phonons,  a process  for  which  a screened  Rutherford  cross  section 
has  been  proposed  on  the  basis  of  empirical  observations.  ® 


2.  SCATTERING  IN  ONE  DIMENSION 
2.1  Development  of  Current  Equations 

It  is  first  appropriate  to  develop  the  OOSII  equations  for  the  simplest  geo- 

7 

metrical  case,  that  of  one-dimensional  scattering,  or  as  many  authors  term  it, 
the  rod  model.  Adoption  of  this  approach  is  advantageous  for  several  reasons,  the 
most  notable  of  which  are: 

(.1)  The  geometric  simplification  allows  for  the  development 
of  the  basic  equations  without  the  complicating  presence 
of  angular  variables  which  would  tend  to  obscure  the 
fundamental  logic;  and 

(2)  The  results  obtained  can  be  compared  with  well-known 
analytical  results,  thus  providing  verification  of  both 
the  basic  equations  and  the  numerical  means  for  their 
solution. 


BnU) 


I 

0 


Tn0) 


I 

t 


Figure  1.  The  One -Dimensional  Geometry 


6.  Garth,  J.C.,  Parke,  N.  G. , and  DeStefano,  T.  H.  (1974)  Bull,  Am,  Ph.ys,  Soc. , 

Ser,  II,  19 No.  3:232. 

7.  Wing,  G.  M,  (1962)  An  Introduction  to  Transport  Theory,  John  Wiley  and  Sons, 

Inc. , New  York. 
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If  a unit  particle  current  is  injected  into  the  left  end  of  a rod  of  length  t (Fig- 
ure 1,  then  the  quantities  Tn(t)  and  Bn(t)  can  be  defined  such  that 


j Tn(t) 
( Bn(t) 


is  the 


transmitted 

reflected 


right 

left 


particle  current  emerging  from  the 

end  of  the  rod  of  length  t after  n interactions. 


First,  to  be  considered  is  the  case  of  forward  scattering  alone.  If  the  current 
T (t)  for  a rod  of  length  t after  n interactions  is  known,  then  the  transmitted  cur- 
rent emergent  from  a rod  of  length  t+dt  after  n interactions  consisting  of  scattering 
in  the  forward  direction  alone  is 

T„«tdt)  ‘ T„«>  [‘  - t]  +fTn-l(t>  T’  (‘> 


where  X is  the  scattering  mean-free-path,  and  f is  the  probability  of  scatter  in  the 
forward  direction.  The  first  term  on  the  right  represents  the  transmitted  current 
emergent  from  the  rod  of  length  t after  n interactions  which  then  escapes  unscat- 
tered through  the  increment  of  length  dt  (Figure  2a).  The  probability  of  no  inter- 
action occurring  in  dt  is  (1-dt/X).  The  second  term  represents  the  transmitted 
current  emergent  from  the  rod  of  length  t after  n - 1 interactions  which  then  under- 
goes one  more  interaction  in  dt  with  probability  dt/X  (Figure  2b).  This  nth  inter- 
action  is  a forward  scattering  with  probability  f.  Rearrangement  of  the  terms  in 
Eq.  (1)  gives 

Tn(t+dt)  - Tn(t)  = [-Tn(t)  + fTn_1(t)j  ^ (2) 

or 

dT  1 r 1 

TT  ■ X [-  T„(t)  * fr„-l<‘1]  • <3> 

Making  use  of  the  identity 

ar  [et/xTn(t)]  - et/X 
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£ * i •'"V 


(4a) 


. 


e"‘/X  4-  (^V*’)  - T Tn(tl  • 
it  is  found  that 

& (et/XTn«))  • e,/X  { 

Integration  over  the  rod  length  yields 

et/XT  (t)  - T (o)  = 1 f exlX  T ,(x)dx  , 
n n A J n-1 

o 

subject  to  the  conditions 

T (0)  = 0,  n <;  1 , 

n 

and 

TQ(t)  = e~t,X  , 

so  that  the  emergent  transmitted  current  is  given  by 

T (t)  = i-  e~tlX  f eX,X  T ,(x)dx. 
n A n-1 


v4b) 


(5a) 


(5b) 


(6a) 


(6b) 


(7)  . 


Upon  inspection  of  the  first  few 
expression  for  T^Ct)  is 

T„<t>  ■ 4^1- . 


solutions,  it  becomes  apparent  that  the  general 


(8) 


from  which  it  can  be  seen  that  for  the  special  case  where  f=  1,  Tn(t)  is  Poisson 
distributed. 

At  this  point  the  one  dimensional  scattering  picture  is  incomplete  since  back- 
scatter  has  not  yet  been  considered.  The  situation  where  backscatter  gives  rise  to 
a contribution  to  the  transmitted  current  can  be  examined  by  considering  the  follow 
ing:  a particle  first  survives  n-m-1  (0-m-n-l)  interactions  in  (0,  t),  as  shown 
in  Figure  2c,  thus  giving  rise  to  a transmitted  current  at  t of  Tn_rn_i^)*  A single 
backscatter  then  occurs  in  the  interval  dt  with  probability  b(dt/\),  where  b is  the 
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Tn  (t)- ( l-dt/X  ) 


i l 
t t + dt 


Figure  2a.  Transmission  Following  n Interactions  in  (0,  t) 
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f *Tn-i  (t)  • dt/X 
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0 t t+dt 


Figure  2b.  Transmission  Following  n-1  Interactions  in  (0,  t)  and 
One  Forward  Scatter  in  dt 
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Figure  2c.  Transmission  Following  n-m-1  Interactions  in  (0,  t),  a 
Single  Backscatter  in  dt  and  a Reflection  from  (0,  t)  in  the  Forward 
Direction  after  m Interactions 


probability  of  backscatter  given  that  an  interaction  takes  place  in  dt  with  probability 

(dt/X).  The  particle,  having  returned  to  (0,  t),  is  then  backscattered  out  of  t after 

m interactions.  The  number  of  such  backscattered  particles  is  Bm(t),  and  the  total 

number  of  interactions  occurring  in  the  course  of  the  trajectory  is  (n-m-D+m+l  = n. 

The  possibility  of  the  particle  having  a second  collision  in  the  interval  dt  can  be 

ignored  since  the  joint  probability  that  a particle  suffers  two  collisions  in  dt  in  the 

2 

same  trajectory  is  proportional  to  (dt)  and  is  therefore  negligible.  The  trans- 
mitted current  contribution  due  to  backscatter  is  then 


n-1 


bS 

m=  1 


B (t)  T _ ,(t) 
m n-m-1 


dt 

T • 


The  summation  is  necessary  to  account  for  all  possible  combinations  of  events 
which  may  result  in  a transmission  after  n interactions.  The  extreme  cases  occur 
when  m=  1 and  m=n-l.  In  the  first  instance  the  particle  enters  dt  after  having  been 


16 


X"N 


transmitted  through  (0,  t)  with  n-2  interactions.  The  single  backscatter  occurs  in 
dt,  and  then  another  single  backscatter  out  of  (0,  t)  takes  place.  When  m=n-l,  the 
particle  enters  dt  unscattered  in  (0,  t),  undergoes  the  single  backscatter  in  dt,  and 
is  subsequently  backscattered  out  of  (0,  t)  after  n-1  interactions. 

When  the  backscatter  contribution  is  added  to  Eq.  (1),  the  transmitted  current 
emergent  from  a rod  of  length  t+dt  after  n interactions  is 


T (t+dt)  = T (t) 
n n 


[>-x] 


+ fTn-l(t) 


dt  , b 

T + X 


n-1 

£ 

m=  1 


B (t)T 
m n-m- 


,(t)  dt 


(9) 


As  was  done  for  the  case  of  forward  scattering  alone,  application  of  the  appropriate 
integrating  factor  leads  to 

Tn(t)  = Xe"t/X/t  eX/XTn-l(x)dx 

o 

n-1  t 

+ ye't/X£  f ex/XB  (x)T  .(x)dx.  (10) 

X m=1  J0  m n-m-1 

In  order  that  useful  solutions  of  Eq.  (10)  may  be  obtained,  a similar  recursion 

formula  must  be  derived  for  the  reflected  current  B (t). 

n 

If  the  reflected  current  for  a rod  of  length  t is  known,  then  the  expression  for 
the  reflected  current  from  a rod  of  length  t+dt  as  a result  of  having  undergone  n 
interactions  can  be  written  as 

n-1 

B (t+dt)  = B (t)+b£  T ,(t)  T (t)  » (11) 

n n a n-m  1 m A. 

m=  u 


where  b is  defined  as  in  Eq.  (10).  The  first  term  on  the  right,  Bn(t),  represents 
the  reflected  current  from  (0,  t)  after  n interactions  (Figure  3a).  The  second 
term  is  the  total  of  contributions  to  the  reflected  current  resulting  from  single 
backscatter  in  dt  (Figure  3b).  Each  contribution  in  this  sum  consists  of  three 
factors.  The  current  due  to  a particle  which  first  survives  n-m-1  interactions  to 
be  transmitted  through  (0,  t)  is  Xn_m_j(t).  A single  backscatter  occurs  in  dt  witn 
probability  b(dt/  X),  and  the  particle  then  survives  m interactions  to  be  transmitted 
through  the  interval  (0,  t)  in  the  reverse  direction,  giving  rise  to  a current  Tm(t). 
The  total  of  interactions  for  this  term  is  (n-m-1)-!  r 1 = n,  and  the  extreme  cases 
for  the  values  of  m occur  when  m=0  (no  scattering  duri  ig  the  first  trajectory  seg- 
ment) and  when  m=n-l  (no  scattering  on  the  return  segment).  Rearrangement  of  the 
terms  of  Eq.  (11)  in  a manner  similar  to  that  for  the  transmission  case  yields 
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Figure  3b.  Reflection  Following  n-m-1  Interactions  in  (0,  t).  a 
Single  3ackscatter  in  dt,  and  a Back  Transmission  from  (0,  t) 
after  m Interactions 


dB 
n 

dt 


n-m-1 


(t) 


T (t) 
m 


(12) 


or  upon  integration 

n-I  t 

Bn(t)  = -y  S f T .(x)T  (x)dx, 
n T m=0  o n'm_1  m 


(13) 


subject  to  the  conditions 

Bn(0)  = 0 , (14a) 

B (t)  = 0 . (14b) 

o 

2.2  Solution  of  the  One-Dimensional  Current  Equations 

Equations  (10)  and  (13),  together  with  the  initial  conditions  of  Eq.  (6)  and  Eq. 
(14),  form  the  following  set  of  coupled  integral  recursion  relations: 
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T„<*>  ■ X e't,X  / 'X/>Tn-1'*»dx  4 . s'  • 

o m=  1 o 


B (t)  = r E / T ,(x)T  <x)dx, 
n 1 m=0  o n‘m_1  m 


Although  it  is  possible  to  obtain  exact  solutions  for  all  orders  of  scattering,  such 
an  analytical  approach  becomes  impractical  beyond  n=3.  The  expressions  for  Tn 


and  B are  listed  below  for  n-  3. 
n 


T (t)  = e 
o 


Tjlt)  = e"t/X  f j , 


T2(t)  - e 


-t/X  [f2t2  b2t  b2  / -2t/X) 


Ts(t)  = e^X  ^ + + t/2X  - 0 + 4-  I1  - H 


Bj(t)  = | [l  - e"2t/X]  , 


B2(t)  = £ [l  -(1+  2t / X)  e"2t/X]  , 


_ /A.  f2b  f2b  ,n  <.2  i ,2  „t  , -2t/X  b3  t -2t/X  b3  ,,  -4t/X. 

Bg(t)  -Ap  - (2  t /X  + + 1)  e + 'T  X 0 + X ' ’ • 

(16c) 


Numerical  solutions  for  Eqs.  (10)  and  (13)  were  obtained  for  values  of  n up  to 


40  by  means  of  a semi -analytical  method  based  on  the  assumption  that  the  Tn  and 


T (0)  = 0 , n - 1 * 

(6a) 

To(t)  = e"t/X, 

(6b) 

t 

Bn(0)  = 0 , 

(14a) 

B (t)  = 0 , 

(14b) 
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Bn  could  be  considered  piecewise  linear,  if  an  appropriate  integration  interval 
(tj,  tg)  could  be  found  over  which  the  approximation  holds,  then  integrals  of  the 
type  occurring  in  Eqs.  (10)  and  (13)  could  be  readily  evaluated.  The  linearity 
assumpcions  are 


TnW  ; 

n 

mT  x 

] 

} (tpXStj), 

(17a) 

b„m  ; 

n 

mBX 

! 

1 

(17b) 

where  m^  and  m^  are  the  slopes  over  the  interval  (tj,  tg)  for  the  nth  scattered 
transmitted  and  reflected  currents,  respectively,  and  b”  and  b”  are  the  corres- 
ponding  intercepts  at  x = t..  There  are  three  distinct  integral  forms  present  in 
Eqs.  (10)  and  (13),  which  under  the  above  assumptions,  are  readily  evaluated. 
That  is 


ex/X  T£(x)  dx  = Aex/X  [m£(x  - X)+  b£]  , 

ex'  X T^(x)  Bk(x)  dx  = AeX/,X  ^m^,  irig(x2-2Ax  + 2A2) 


+ (mj  b£  + b*  ) (x  - A)  + b£  bg] 


(18a) 


(18b) 


/ T£(x)  Tk(x)  dx  = [m^mj^+  (m^bj  + n4bj)^.  + b*bjx] 

1 *1 

(18c) 

Since  exact  expressions  were  available  for  Tn(t)  and  B (t)  up  to  n=3,  the  approxi- 
mate method  of  solution  was  employed  only  for  values  of  n>4. 

A computer  code  was  written  to  solve  the  system  of  recursion  relations. 

Slopes  and  intercepts  for  the  first  three  orders  of  scattering  were  readily  available 
from  the  exact  expressions.  The  computer  program  was  written  in  such  a way  as 
to  compute  the  currents  for  all  orders  of  scattering,  up  to  n=40,  in  one  pass  for 
each  increment  of  rod  length.  Computations  were  made  of  Tn  and  Bn  for  51  values 
of  rod  length  ranging  from  t=0.  0 to  t=  10.  0 mean-free-paths  in  steps  of  0.  2 mfp.  It 
was  found  that  an  integration  interval  of  0.  004  mfp  proved  adequate  to  satisfy  the 
piecewise  linearity  assumption.  This  was  verified  by  a comparison  of  the  compu- 
tational results  for  the  case  where  f=  1,  b=0,  with  exact  answers  obtained  by 
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evaluation  of  the  Poisson  distribution.  Additional  verification  was  obtained  by 
comparison  of  the  current  totals  for  other  values  of  f and  b over  the  first  40  orders 
of  scattering  with  exact  expressions  obtained  for  the  totals  over  all  orders  by  the 
"classical"  method  of  solution  for  the  rod  model.  The  values  of  the  three  integral 
forms  of  Eqs.  (18  a,  b,  c)  were  accumulated  from  on<'  step  in  t to  the  next,  elim- 
inating the  necessity  of  starting  the  integration  from  t=0  for  each  rod  length  of 
interest. 

Plots  of  the  computational  results  are  given  in  Figures  4 through  9.  The 
transmission  and  reflection  current  curves  are  plotted  vs  order  of  scattering  for 
rods  ranging  in  length  from  1 to  10  mfp  in  steps  of  1 mfp  (the  scattering  mean- 
free-path  was  assumed  constant  for  all  collision  orders)  and  for  the  following  val- 
ues of  the  scattering  probability: 

(1)  f=0.  5,  b=0.5 Figures  4a,  b 

(2)  f=0.  6,  b=0.4 Figures  5a,  b 

(3)  f=  0,  7 , b=0.  3 --- Figure^  6a,  b 

(4)  f=0. 8,  b=0.  2 Figures  7a,  b 

(5)  f=0.  9,  b=0.  1 Figures  8a,  b 

(6)  f=  1.  0,  b=0.  0 --- Figure  9a 

and 

(7)  Poisson  distribution  curves Figure  9b. 

The  last  set.  Figures  9a  and  b,  are  included  for  the  purposes  of  comparison.  Only 
cases  of  conservative  scattering  (f+b=  1)  were  considered,  although  this  was  not  a 
necessary  restriction. 
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Figure  6a.  Transmitted  Current  vs  Figure  6b.  Reflected  Curr 
Drder  of  Scattering  for  10  Rod  Order  of  Scattering  for  10 

Lengths:  f=0.7  Lengths;  f=0.7 
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Figure  7b.  Reflected  Curr 
Order  of  Scattering  for  10 
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Figure  7a.  Transmitted  Current  vs 
Order  of  Scattering  for  10  Rod 
Lengths:  f=0.  8 
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Figure  8a.  Transmitted  Current  vs  Figure  8b.  Reflected  Current  vs 
Order  of  Scattering  for  10  Rod  Order  of  Scattering  for  10  Rod 
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Figure  9b.  Poisson  Curves  Plotted 
vs  Order  of  Scattering 
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2.3  Comparison  of  One-Dimensional  Results  with  those  Obtained 
Using  the  Classical  Treatment  of  the  Rod  Model 

An  independent  means  of  testing  the  validity  of  the  OOSII  one -dimensional  re- 

7 

suits  can  be  found  in  the  classical  treatment  of  the  rod  model.  Simple  expressions 
for  the  total  (infinite  ord~r)  transmitted  and  reflected  currents  can  be  readily  ob- 
tained which,  when  evaluated,  should  yield  results  which  agree  closely  with  the 
totals  of  the  finite  order  currents  up  to  40  orders,  at  least  for  the  shorter  rod 
lengths.  Determination  of  the  total  currents  according  to  the  classical  treatment 
proceeds  as  follows: 


J 


I 


I I 
I I 


x = 0 


x x+Ax  x=t 


Figure  10.  Classical 
Rod  Model  Geometry 


Let  there  be  an  incident  current  of  1 particle  entering  a rod  of  length  t at  x=n  (Fig- 
ure 10).  Let  there  be  defined  two  particle  currents  at  the  interior  point  x such  that 
I(x)  is  the  total  particle  current  moving  to  the  right  at  x,  and  J(x)  is  the  total  par- 
ticle current  moving  to  the  left  at  x.  The  boundary  conditions  are 


1(0)  ,=  1, 

(19a) 

J(t)  = c. 

(19b) 

The  probability  of  a collision  occurring  in  the  interval  Ax  is 
^ + O(Ax)  , 

where  X is  the  scattering  mean-free -path,  as  before.  The  probability  of  forward 
scatter,  f,  and  backscatter,  b,  are  defined  9S  before.  Then  the  number  of  par- 
ticles moving  to  the  right  undergoing  a collision  in  Ax  is 

f i(x)  ^ + O(Ax)2  . 
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The  number  of  particles  moving  to  the  right  undergoing  no  collision  in  Ax  is 
(1-^2)  I(x)  + O(Ax)2  . 

In  addition,  ^articles  moving  to  the  left  may  have  a collision  in  Ax  resulting  in 
backscatter  to  the  right.  The  number  of  such  backscattered  particles  is 

b J(x+Ax)  ^ + 0(Ax)‘  . 

If  these  are  added  together,  the  total  right  -mo;  current  at  x+Ax  is 

I(x+Ax)  = l(x)  + I(x)  ^ (f-1)  + b J(x+Ax)  ^ , 

A A 


35  = f r I(x)  + x J(x)  • (20) 

Similary,  for  the  left -moving  current,  the  number  moving  to  the  left  undergoing  a 
collinion  in  Ax  is 

f J(x  + Ax)  + O(Ax)2  . 

The  uncollided  left-moving  current  is 
(1  - ^)  J(x  + Ax)  + O(Ax)2  . 

and  the  backscattered  contribution  from  the  right-moving  current  is 
bl(x)  ^ +■  O(Ax)2  , 

When  these  are  added  together,  the  total  left -moving  current  is 
J(x ) = J(x+  Ax)  + (f-1)  J(x+Ax)^  + b I(x)  ^ , 


E ■ nr  J(’t»  * x “*»  ■ <21> 
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The  system  of  coupled  equations,  Eqs.  (20)  and  (21)  together  with  the  boundary 
conditions  of  Eqs.  (19a,  b),  can  be  readily  solved,  particularly  for  the  case  where 
f+b=  1.  Differentiation  of  Eq.  (20)  and  substitution  of  Eq.  (21)  for  dJ/dx  yields  the 
following  second-order  differential  equation  for  I(x); 


2-1  + (b2  - (f  - l)2)  1=0, 
dx 


(22) 


which  for  the  case  of  conservative  scattering  leads  to 

.2 

2-1=0.  (23) 

dx2 

Therefore,  I(x)  may  be  written  in  the  form 

I(x)  = ax  + 1 3 , (24) 

where  a and  j3  are  undetermined  constants. 

A similar  procedure  applied  to  Eq.  (21)  yields  the  same  form  for  the  left -moving 
current: 

J(x)  = yx  + 5 . (25) 

Application  of  the  boundary  conditions  of  Eqs.  (19a,  b)  to  Eqs.  (24)  and  (25)  elimi- 
nates two  of  the  unknowns.  That  is 


1(0) 

= 1 - 0=1. 

(26) 

-T  (t ) 

= 0 yt  = -6. 

(27) 

Substitution  of  Eq.  (19b)  into  Eqs.  (20)  and  (21)  provides  a 
ary  conditions  to  eliminate  the  two  remaining  constants  as 

set  of  differential  bound- 
follows: 

dl 

Bx 

- (f-1}  mi  > rv  f_1 

t r~  I(t)  a ‘ X'-TF'-TTF  * 

(28) 

dJ 

Hx 

t = ~J  I(t)  - * = x-Tf-'DV  • 

(29) 
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With  the  constants  now  determined,  the  expressions  for  I(x)  and  J(x)  may  be 
rewritten  as 


I(x)  1 ' TTT5T 


b(t  - x) 

TVb't  ' 


The  forward  current  at  the  boundary  x=t,  I(t),  and  the  reflected  current  at  x=0, 
J(0),  should  correspond  to  the  summation  of  the  transmitted  and  reflected  currents 
obtained  by  means'  of  the  OOSI'T 'method.'  'That is 


Tl  T (t)  = yJL- 
n=0  n T+bt 


d b a)  = T-h-r 

n=  i n 1 + bt 


The  extent  to  which  these  relations  hold  for  currents  up  to  40  orders  is  demonstrated 
in  Tables  la,  lb,  2a,  and  2b  where  comparisons  are  given  for  the  cases  where 
f=0.  5,  b=0.  5,  (Tables  la,  lb)  and  f=0.  8,  b=0.2  (Tables  2a,  2b).  Except  for  large 
values  of  t,  the  agreement  seems  to  be  very  close. 
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Table  2a.  Comparison  of  Scattered  Current  Totals  to  Table  2b.  Comparison  of  Scattered  Current  Totals  to 

40  Orders  with  Infinite  Order  Exact  Values:  40  Orders  with  Infinite  Order  Exact  Values: 

Transmission;  f=0.  8,  b=0.  2 Reflection;  f=0.  8,  b=0.2 
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3. 


SCATTERING  IN  A SLAB  GEOMETRY 


3.1  Development  of  Current  Equations 

Application  of  the  OOSII  method  to  the  one -dimensional  scattering  problem 
served  not  only  as  a demonstration  of  the  principles  of  the  method,  but  also  as  a 
means  of  verification  of  the  method  of  numerical  solution  of  the  current  equations. 
Further  utility  beyond  this  point,  however,  is  limited  except  for  the  possibility  of 
modelling  some  three-dimensional  problems  with  one-dimensional  solutions  through 
the  use  of  some  sort  of  equivalent  mean -free -path  for  curve  fitting  purposes. 
Greater  practical  value  for  the  OOSII  method  can  be  demonstrated  when  applied  to 
three-dimensional  problems.  The  problem  of  particle  transport  in  slabs  is  a con- 
venient choice  from  among  the  class  of  physically  realistic  cases  since  it  is  the 
simplest  in  the  geometric  sense,  and  it  relates  to  a wide  variety  of  physical  situa- 
tions ranging  from  neutron  transport  in  reactors  to  laboratory  studies  of  electron 
transport  in  thin  films. 

As  in  the  case  of  one-dimensional  scattering,  development  of  the  imbedding 
equations  can  begin  with  consideration  of  the  transmitted  current  due  solely  to 
forward  scattering.  Let 


T (t,  )dQ 

n ° • 

| Bn(t,  ft,no)dft  j 

( transmitted  | 
j reflected  j 

J right  ) 

left 


be  the 


particle  current  emerging  from  the 


face  of  the  slab  of  thickness  t (Figure  11),  after  n interactions,  in  the  solid  angle 
dQ  about  Q because  of  a unit  current  incident  on  the  left  face  in  the  direction  0,Q. 
Then  the  transmitted  current  emergent  from  a slab  of  thickness  t+dt  after 
n interactions  consists  of  two  contributions,  the  first  due  to  n scatters  having 
occurred  in  (0,  t)  (Figure  12a),  and  the  second  due  to  n-1  scatterings  in  (0,  t) 
followed  by  the  nth  scattering  in  dt  (Figure  12b).  This  is  written  as 


-*  -*  -*  -*  i-  j.  -I 

t (t  + dt,  n,  n )dn  = t (t,  n,  nm  1 - 

n o n o L MAn  J 

+ f dQ'T  ,(t,  n',  n )«n'-*n)dS2  — , 

y=0  n_1  ° M n-l 


(32) 
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Tn(  t,  ft  »fto ) 


Bfl  ^ 


z =0  z = t 

Figure  11.  The  Slab  Geometry 


where  X is  the  scattering  mean-free -path  at  the  nth  collision,  g and  p ' are  the 
n — > / 

direction  cosines  of  ft  and  ft  , respectively,  with  respect  to  the  normal  to  the  slab 
surface  (that  is,  ft  = e 1 cos  0 + e V 1 * M2  sin  0 + e ju,  0 being  the 
azimuth  about  the  z-axis),  and  f(ft  ' r2 ) dO  is  the  probability  of  scattering  from  the 
direction  ft  ' into  the  solid  angle  dft  about  ft. 

The  first  term  on  the  right  is  the  transmitted  current  emergent  from  the  slab 
of  thickness  t after  n interactions,  which  then  escapes  unscattered  through  the 
incremental  thickness  dt  (Figure  12a).  The  probability  of  no  interaction  occurring 
in  dt  is  (1-dt/g.X^),  where  dt/pis  the  path  length  of  the  incident  particle  in  dt.  The 
second  term  arises  when  a particle  with  incident  direction  fto  is  first  scattered  out 
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Figure  12a.  Transmission  Following  n Interactions  in  (0,  t) 


of  (0,  t)  after  n-1  interactions  into  dft\  A further  interaction  occurs  in  dt  with 
probability  dt  /p'X  .,  where  dt/p'  is  the  path  length  of  the  incident  particle  in  dt. 

This  nth  interaction  is  a forward  scatter  from  ft'  into  dft  with  probability  f(ft'->ft)dft 
(Figure  12b).  The  integral  over  dft'  serves  to  account  for  all  possible  intermediate 
orientations. 

Cancellation  of  the  dft  lactor  common  to  both  sides  of  Eq.  (32)  and  rearrange- 
ment of  terms  gives 

T„(t*dt.  5.  (ip-  Tn(t,  si.  sio)  Tn(t.  5.  no) 

at  n 

U " ^ . ->  -»  -» 

■t  t — / M-  f(ft'-ft>  Tn  . (t,  ft'ft  > , (33) 

Xn-1  V=0  ^ n_1  ° 

from  which  the  following  partial  differential  equation  is  derived: 


8 T (t,  ft,  ft  ) 
n o 

i 

T (t,  ft,  ft  ) 
n o 

8 t 

p A 
^ n 

u'  = l 

♦1-7  /,  „ 

n-1  (i  =0 

dft 

It' 

f(ft  ' -»ft)  T . (t,  ft\  ft  ) . 

n-i  o 

(34) 

In  like  manner  to  that  of  the  one -dimensional  case,  use  of  the  identity 
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Figure  12b.  Transmission  Following  n-1  Interactions 
in  (0,  t)  and  Cue  Forward  Scatter  in  dt 


rpr  fet/X^T  (t,  n,  n )]  = l_et/X^T  +et/X^^Jl 
dtL  n o J Ail  n TTT 


(35) 


leads  to 

WT  [e4/*»',Tn<t.5.50>]  - 

HO'  -»  -* 

TvF  TP"  «n  -n)  Tn.i  (t.  . 


(36) 


and  with  the  boundary  condition  that 


Tn(0,  n,  nQ)  =0,  n > 1 , 


(37) 


integration  of  Eq.  (36)  over  the  slab  width  yields 


Tn(t,  S!.  S!o)  • 


-t/X  u m'=  1 


f f(Q'-*Q)  fdze  n" 

~ U'  i 


/ -»  -♦  - z/X  p 


n-1  /i'=0 


Tn_i(K.  n'(flo) 


(38) 


The  contribution  of  backscatter  to  the  transmitted  directional  current  is  deter- 
mined in  much  the  same  way  as  it  is  for  the  one -dimensional  case.  The  descrip- 
tion of  the  multiple  scattering  process  is,  however,  more  complicated  due  to  the 
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consideration  of  scattering  angles.  As  before,  a particle  enters  at  z=0  in  the 

direction  ftQ  and  survives  n-m-1  (O-m^n-l)  interactions  in  (0,  t)  (Figure  12c),  so 

that  the  transmitted  directional  current  entering  the  incremental  thickness  dt  along 

the  direction  ft'  is  T ,(t,  ft',  ft  ).  The  (n-m)th  interaction  then  occurs  in  dt 
n-m- 1 o 

with  probabil.ty  dt/fl'A  ..  The  probability  of  backscatter  at  this  point  from 

n ~ m - 1 — * 

the  direction  ft'  into  the  solid  angle  dft"  about  ft"  is  f(ft'  -*ft")dft".  The  particle, 
once  scattered  back  into  (0,  t)  from  dt  is,  after  m interactions,  rescattered  out  of 
the  slab  into  the  solid  angle  dft  about  ft.  The  term  describing  this  combination  of 

• events-is -•■■■- .......  „ . . 

n- 1 1 o 

dftl/  - — T (t.ft'.ft)^-  / f(ft'-*ft")B  (t.  ft,  ft")  dft". 

m=  1 Vm  1 m'=  0 n-m‘1  ° ^ m"-1 

The  summation  covers  the  range  of  possible  values  of  m which  can  contribute  to  a 
transmission  after  n interactions,  and  the  integrals  over  dft'  and  dft"  account  for 
all  possible  intermediate  orientations. 

The  addition  of  this  multiple  backscatter  term  to  Eq.  (32)  together  with  can- 
cellation of  the  dft  factor  completes  the  partial  differential  equation  for  the  trans- 
mitted current: 


9Tn  - - 

Dt  (t’  Qo  ) “ 


-~T  (t,  ft.  ft  ) + -4—  / 

MAn  n ° Vl  i'=0 


n-1 


T (t.  ft',  ft  )dft' 
li  n-1  o 


+ E -r - f T ,(t,  ft',  ft)£?-  f f(ft'  ->ft")B  (t,ft  ft")dft" 

m=l  Xn  - m - 1 fi'-- o n'm'1  ° » ju"=-l  m 


(39) 


Integration  of  the  above  over  the  slab  width  results  in  the  following  expression  for 
the  transmitted  directional  current: 


T (t.  ft  ft  ) = 
n o 


t//iX 


1 

M'=  0 


/ ^ f(ft->ft)  / eZ/MXn  T (z>  n ) 

i,  /_n  “ a_  i n-i  o 


o n-1 


n-1  1 o 

dft' 


+ Z f f dft"f(ft'  -> ft") 

m - 1 JLI  '=0  M ju  "=-l 


xf 


e n T , (z.  ft',  ft  ) B (z,  ft,  ft") 

A_  , n-m-l  o m 


0 n-m-1 


(40) 
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Figure  12c.  Transmission  Following  n-m-1  Interactions 
in  (0,  t),  a Single  Baekscatter  in  dt  and  a Reflection  from 
(0,  t)  in  the  Forward  Direction  after  m Interactions 


In  order  that  the  set  of  current  equations  be  complete,  a similar  expression 
must  be  developed  for  the  reflected  current.  The  arguments  proceed  along  the 
same  lines  as  previously  discussed.  The  reflected  current  from  a slab  of  thick 
ness  t+dt  consists  of  two  parts,  a portion  due  to  reflection  from  (0,  t)  after  n 
interactions,  and  another  portion  due  to  a single  baekscatter  occurring  in  dt  (Fig 
ure  13).  The  resulting  expression  is 

b (t  + dt,  n,  n )<m  = b (t.  n.  n )d« 

n o n o 

n 1 o 

+ dn  E f dn"T  (t,  n,  n" 

m=0  4"= - 1 m 

x f(n'->n")T  , (t,  o',  fi  ) . 

n-m-1  o 


) / dfi'-r 


dt 


il'=0  4 An-m  1 


(41 
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Figure  13a.  Reflection  Following  n Interactions 
in  (0.  t) 


a 


ft 


(n-m-l  INTERACTIONS) 


\ 


N 


\ 


/ 


„ ' 
//  \ /A 

\ \ A" 

v V 

(m  INTERACTIONS) 


t t + dt 


Figure  13b.  Reflection  Following  n-m  1 Inter- 
actions in  (0,  t)  a Single  Backscatter  in  dt  and  a 
Back  Transmission  from  (0,  t)  After  m Inter- 
actions 


The  significance  of  the  first  term  of  Eq.  (41)  is  obvious  from  its  definition.  The 

second  term,  once  again,  is  the  total  of  contributions  to  the  reflected  current 

resulting  from  single  backscatter  in  dt.  A particle  with  incident  direction  Q is 

— > o 

transmitted  through  (0,  t)  with  exit  direction  fi ' after  n m 1 interactions.  A back 
scatter  in+o  the  solid  angle  dfi"  about  occurs  in  dt  with  probability  f(Si'->f2")' 
dn"dt//iAn  The  particle  is  then  transmitted  back  through  (0.  t)  with  m 

interactions  occurring  during  this  return  trajectory.  Rearrangement  of  the  terms 
of  Eq.  (41)  results  in 

37 


- 


. _ . . . 


JL  b (t,  ft.  ftQ)  = 

9 1 n 0 

n 1 0 


(42) 


n 1 0 ->  -»  f - 

£ J dft"Tm(t,  ft.  ft'  > J(=0  fiVm-1 

™-n  u"=-l 


r __dft! f(fi'-ft")Tn.m.1(t,  «'•  no}  • 


m=0  p 

Integration  over  the  slab 
current:  • — - 

B (t,  ft,  ft)  = 
n ° 

n-1  * , r 

r.  s 

m=0  o n-m  i P 

Tn-m-l(Z’^’no)  ‘ 


width  provides  the  final  expression  for  the  re 


dft 


'V*'  n.  «">  1 0 


dft' 


f(tv-ft")  * 


(43) 


-r«.r:;:rrr;r;,. — ~ — > — 


are 


Tk(0,ft,fto)^.k>° 


B.  (0,  ft,  ft0 


) = 0 , k > 0 


(44a) 

(44b) 


and  the  initial  conditions  are 


'Z/V  6 («.R  ) 

Tq(z,  ft.  ft0^  = e 2 0 


(z.  ft,  ft0)  = 0 


where  the  three 


. e /o.  qM  is  defined  ss 
dimensional  delta  function  »2®  « > 


■*/)  = 6(p  - p')  W ' *') 


62(ft- 


: Slab  Geometry  Current  Equation. 


(45a) 

(45b) 


(46) 


3-2  Solution  of  iW  Sab  — ->  , recursi0„  relations  for  .He  slab 

, .oV2  fnrm  the  coupled  integi* 

Tne  equations  vrt»  ^ Mlowing  form: 

geometry  can  be  rewritten 
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2w  2it 

f d 6 f dd>  T (t,  fi,  ft  ) = 

J o J n o 


■4/v 


z/A  U 


2tt  2ir  2tt  1 t 

/ d0Q  / d0/  d0'/  ^.'f(ft'-»ft>/  ^ e"'"nl_Tn.1(z,d',  ft  ) 
~ ^ on-1 


_o  o o o 

n-1  27t  2w  2tr  2ir  1 o 

+ E / d0  / d0  / d<t>'  J d$"  / d|u,,f(ft,->ft") 

m=  lo  o o o o M -1 

. j-  Z/A  (i  -*  -»  ->  -» 

X J — — « n T (t  5!'  Q I ^ (7  O ft") 

•••«“ A-  ; 1n-m-‘l  ' ’ tr  - • * 

o n-m-1 


. {4.7 )v., 


a?id 

2ir  2v 

/ d0Q  / d 0 B (t.  ft,  fiQ)  = 
o o 

n- 1 2tt  2rr  t 2ir  o 

£ / d0o  / d0  / ^ / d0"  / dji"T  <z.  ft,  ft") 

m=0  e o o n-m-1  o -1 

2v  1 

x f d<y  [ 2fCm'+a”)T  .(z,  o'.  o ).  (48) 

J 11  n-m-1  o 

n n 1 


Since  the  slab  is  infinite  in  extent  in  the  x and  y directions,  the  functions  f,  Tn>  and 
are  invariant  under  rotations  about  the  z-axis.  The  integrals  over  azimuth  may 
then  be  dispensed  with.  Given  the  definition 
2n  2v 

F(jU,  H ')  = / d0  / d0'  F(I in'),  (49) 

o o 


where  F is  an  arbitrary  function  of  ft  and  ft',  Eqs.  (47)  and  (48)  then  take  the  follow- 
ing simplif;ed  form: 


Tn(t,  M , Mq) 


-*  'V 


/ Sjt.' filled)  / TJ.1(.,n,.n(Hl|  / 


z/Aji 


n-1  1 


dji ' 


16  M 6 n-1  “ * u m=l  6 ^ 

o , t (50) 

-1  o An-m-l  _l 
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. .....  








Bn(t,  M,  tiQ)  = 
n- 1 t 

s / 

m=0  6 n-m-1 


/ dM,,Tm(z.  M. 


(51) 


and  the  boundary  and  initial  conditions  become 


Tk(°, 

M,  M0) 

= 0 , k > 0 , 

(52a) 

Bk(°, 

M.  MQ) 

= 0 , k > 0 , 

(52b) 

To<z, 

M,  MQ) 

-z/A  M 

= e 6(M  - Mq)  . 

(53a) 

B (z, 
o 

M.  M0) 

= 0 . 

(53b) 

Exact  solutions  are  possible  for  the  once-scattered  currents  Tj  and  B^.  In  fact, 
knowledge  of  these  solutions  is  ir.dispensible  to  the  success  of  the  solution  scheme 
to  be  outlined.  Direct  subsftution of  Eq.  (53a)  into  Eq.  (50)  yields  for  n=l, 


■1/  Xjiil  ^ t z/Xji 

Tl(t’  tlo)  =X-  /^rf(M/-M)/dze  1 To(z.  m'.  /x  ) 
o o o 

e_t/V  r1  du'  , r z/V  _z/XoM' 

= / -£*-  KH  -*V)  f *ze  e 6(m ' - M > 


-t/Aj/i  t z 

TH-  ^M)/dZe 

0 0 o 


(*iM  " a0m0) 


or 


T j(t,  M.  M0)  = 


A M (■  -t/Aj  -t/A  Ml 

rji7ipr"S^»  U °-e  1 J . Mk0| 


t -t/A  M 

nr-  e ° f<*V/io)  • •'*  = ^ 


o’  o 


(54) 


First  order  reflection  is  also  obtained  using  Eq.  (53a),  so  that 


Bj(t,  4.  4q> 


to  1 

= j-Jdzf  dn"T  <z,  4.  4")  / ^f(4'-*4">T  <z,  4'40> 


<3  o -1 
o 


-z/A  i4 


/ dz  / d4''  e 5(4  - 4 ")  j f(4 '-4  ">e 


■z/A  4 ' 


oo  -1 
t 


6(4'  ’40> 


-z/Xol4"l 


, -z/A  4 

= x-Wdze  °°/^"e 

00  0 -1 

1 1 -z/a  <i4i+]r) 

= xir  dz  e 

0 0 o 


or 


Bj(t,  M. 


4q)  = 


mr  f(%^>  [‘  - 


-t/A, 


(55) 


The  angular  integrals  of  Eqs.  (50)  and  (51)  present  a problem  which  had  not 

occurred  previously  in  the  one-dimensional  case.  It  is  necessary  to  cast  the 

equations  into  a form  in  which  the  integrals  over  angle  can  be  performed  both  with 

a sufficient  degree  of  accuracy  and  within  a reasonable  amount  of  computation 

time.  For  this  reason  the  method  of  Gauss  quadrature  integration  was  chosen. 

Briefly  stated,  given  a function  g(x)  defined  on  the  interval  -1  s x £ 1,  then  a 

8 

numerical  integration  of  g(x)  over  this  interval  can  be  obtained  as  follows: 

1 L 

/ g(x)dx=E  A g(x  ) , (56) 

-1  1=1  ^ ^ 

where  the  x^  are  the  zeros  of  the  Legendre  polynomial  of  order  L defined  over  the 
interval  -lsxs  1,  and  the  A are  the  Gaussian  weighting  coefficients  (it  can  be 
shown  that  such  a procedure  is  equivalent  to  integrating  a (2L-l)th  order  poly- 
nomial which  agrees  with  the  function  g(x)  at  2L  points).  This  method  of  integra- 
tion can  be  applied  directly  in  the  evaluation  of  the  angular  integrals  of  Eqs.  (50) 
and  (51)  since  the  integration  intervale  are  compatible.  This  approach  differs 
from  those  that  have  been  widely  adopted  in  the  past  by  others  where  it  has  often 
been  the  practice  in  solving  transport  problems  to  apply  Legendre  series  expan- 

9 

sions  directly  to  functions  of  the  type  found  in  the  integrands  of  Eqs.  (50)  and  (51). 

Tables  of  the  Gaussian  ordinates  and  their  weighting  coefficients  are  readily 
available  from  several  sources.  When  Eqs.  (50)  and  (51)  are  restated  in  the  dis- 
crete ordinate  representations  of  Eq.  (56)  they  appear  as 

8.  Lanczos,  C.  ( 1956)  Applied  Analysis,  Prentice  Hall,  Inc.,  Englewood  Cliffs, 

N.J. 

9.  Weinberg,  A.  M. , and  Wirner,  E.  P.  (1958)  The  Physical  Theory  of  Neutron 

Chain  Reactors,  Univ.  of  Chicago  Press,  Chicago. 

10.  Stroud,  A.H. , andSecre  it,  D.  (1966)  Gaussian  Quadrature  Formulas,  Prentice 
Hall,  Inc.,  Englewood  Cliffs,  N.J. 
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Tn(t,  Mr  MS)  = 


t/Vi 

■ t 

r 

dz 

J 

_o 

1 

n-1 

+ E 

m=  1 

t 

r 

dz 

J 

o 

Vm 

Tn-m-l(z'  V 


Z,  A f(u  ,/i)B  (z,  Lt  ,/i  ) 
p p mv  ’ 'Af  *p_ 


(57) 


and 


n-1 


Bm(t’  Mj)  -2  _ / 


dz 


m=0  o n-m-1 


V'  V ^n-m-  1^Z’  ^k’ 

X E A T (z,  u , /i  ) SA  f(fi  M> 77 L 

pm  •?-  P k k k p Mk 


(58) 


The  remaining  problem  of  integration  over  the  slab  thickness  z is  handled  in 

exact  analogy  to  that  of  the  one-dimensional  case.  It  is  assumed  that  over  a 

sufficiently  small  interval,  t,  « z « t,  the  functions  T (z,  j n j u.)  and  B (z,  ju.,  ju,  ) 

i n j k n j k 

can  be  considered  linear  in  the  variable  z so  that  they  may  be  written  as 


Tn(z,  jUj,  Mk)  = Mk>z  + b^(Mj.  Mk>  . 


Bn(Z’  Mj'  Mk}  = mB(Mj’  Mk)z  + bB(Uj’  Mk*  ’ 


(59a) 

(59b) 


where  the  m”(f/.,  /J.^)  and  the  m g(Mj<  Mk)  are  the  slopes,  and  the  b”(/ij.  Mk)  and 
bg(/i.,  /ik>  are  the  intercepts  of  the  Tn  and  B^,  respectively.  It  is  convenient  for 
the  expressions  for  Tn  and  B^  to  be  divided  into  six  terms.  That  is: 


n n 


(1)  + rp  (2)  T (3) 

(60a) 

1n  n ’ 

(1\  B (2}  + B (3)  , 

(60b) 

n n 


where 
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Tna,(t.pt.  Ilj). 
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Vt  1PJ 


(61b) 


x£Apf(4.,  4p)  ®n_!  <z»  4t.4p). 
P "i 

R (D#*  / dz  p‘Z/A0Mb 

B (t,  /i  . » /i.)  - J N 6 
n 1 J o Xn-1 


s,  V A r/„  ^Tn-l(z’ 

X^Akf(4k.  4^) jr *L- 


(61c) 


(62a) 


n-2 


E <2»(t.  ^ Sa  Tm(..  „ „ 

J m- 1 o n-m- 1 p K 


B 


x^Ak«“k'  <V  „k  1 ' 

;n<3»(«.  „ (i  ) = / Vfc  e'2,X<,t,J  £ VT  VVl(l-  'V  V • 

J O 0 J P r J r 


(62b) 


(62c) 


The  above  expressions,  Eqs.  (61a,  b,  c,  62a,  b,  c),  result  from  the  expansion 

of  the  summation  terms  over  orders  of  scattering  present  in  Eqs.  (57)  and  (58)  into 

terms  involving  first  order  transmission  and  those  which  do  not.  In  this  way  direct 

use  of  the  exact  expression,  Eq.  (54),  for  Tj(t,  4.,  /d.)  could  be  made  by  means  of 

explicit  substitution.  It  is  expected  that  this  procedure  should  lead  to  a more 

accurate  determination  of*the  T and  B than  would  have  been  the  case  if  the  piece- 

n n 

wise  linearity  assumption  had  been  applied  uniformly  to  all  scattering  orders.  If 
the  piecewise  linear  assumption  is  applied  to  the  expressions  given  in  Eqs.  (61a, 
b,  c)  and(62a,  b,  c),  and  if  the  integrals  over  z are  then  performed  on  the  interval 
t s z s t,  the  following  expressions  result  for  the  six  terms: 


43 


-ti'Vt 


m T1(^k'^  [(Wl+We  1 

- <W+ We  J 

, n- 1 , . , „ r -t/AoM 

+ bT  (Mk.  M-)  [e  ‘ e J 


B 


(2) 


n-2 


= E ^ — .....  E a Ea,  U,1K  V . 


m=l  n-m-1  p 


k Id, 


[mT^r  V mT~m"1(V  H.)\ 

+ [bT(*V  V“?': m_1(4k* 


3i 


t3  *1  I 

,i arj 


+ b£  rn_1(^k>  Mj)m  M ) 


1 ft2  _ *i2’ 
J LIT  T"J 


+ [bT(br  bp>bT  (fV  *V]  [*  ' tl] 


B (3>  = f E A ftl‘i-  V 
n A p IJL . 

° P 1 


mT1(,JrV  [(VjV^j)6  1 °4j 


/ 9 9 

— ( X fd  .t  + A /i  . 
1 0 3 ° 3 


_ , r -t,  /A  Id.  -t/A  jH.'l 

bT_I  «V  V Vj  [»  1 0 3 - = ° JJ 


(64a) 


(64b) 


(64c) 


The  above  relations,  Eqs.  (63a,  b,  c)  and  (64a,  b,  c),  form  the  basis  of  a 
computer  program  which  was  written  to  obtain  numerical  solutions  to  the  coupled 
integral  recursion  relations  of  Eqs,  (50)  and  (51).  The  remaining  requirement  is 
the  specification  of  the  scattering  matrix  f (/u , fd  '),  the  mathematical  description  of 
the  physics  oi  the  scattering  process.  In  the  sections  that  follow,  the  results  of 
four  OOSII  calculations,  corresponding  to  four  forms  for  f(jn,  id'),  are  reported. 
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4.  ISOTROPIC  SCATTERING  IN  THE  LABORATORY  SYSTEM  - 
OOSII  TREATMENT 

The  simplest  form  of  the  scattering  matrix  f(/i,  fd  ')  occurs  when  all  of  the 
elements  are  constant  and  equal.  This  situation  corresponds  to  isotropic  scatter- 
ing in  the  laboratory  system.  As  has  been  stated  previously,  regardless  of  the 
nature  of  the  scattering  interaction  f(ft-*ft')dft'  is  the  probability  of  scattering  from 
the  initial  direction  ft  into  the  solid  angle  dft'  about  the  direction  ft',  For  any  con- 
servative scattering  interaction  (no  absorption) 

4 ff 

/ dft'  f(ft-»ft')  = 1 . (65) 

o 

If  the  scattering  is  isotropic  in  the  laboratory  system  (the  directions  ft  and  ft'  are 
specified  with  respect  to  the  laboratory  frame),  then  from  Eq.  (65)  it  is  seen  that 

f(fi'  -»ft)  = 4-  . 

4it 

Furthermore,  since  azimuthal  invariance  applies,  as  in  Eq.  (49) 

2tr 

f(M,  M ' ) - f = f d0  f(ft->ft') 

O 

2 IT 

- Jf  f 

o 


(66) 


The  above  value  of  fQ  was  substituted  for  the  f(/i.,  M J in  Eqs.  (63a,  b,  c)  and 
(64a,  b,  c),  and  computer  runs  were  made  to  determine  the  values  of  Tn(t,  /!.,  fd .) 
and  Bn<t,  jH.,  /d.)  where  the  Ji.  and  /d . are  Gaussian  discrete  ordinates  correspond- 
ing to  cosines  of  the  incident  and  exit  polar  angles,  respectively,  for  41  values  of 
t ranging  from  0.  0 to  8.  0 mfp  in  steps  of  0.  2 mfp.  A constant  value  was  assumed 
for  A.  . This  assumption,  while  not  a necessary  restriction  of  the  method,  serves 
to  simplify  the  computation.  Current  values  Tn<t)  and  Bn(t)  were  then  obtained  by 
integrating  the  directional  currents  Tn(t,  /d,  M;)  and  Bn(t,  fd,  fd')  over  the  incident 
and  exit  cosines  fd  and  fd'.  That  is 

i i n 

Tn(t)  = J d/d  w (id)  f dfd'  Tn(t,  Id,  id')/  f dfd  w (jli)  , (67) 
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and 

B (t) 
n 


1 o /I 

/ dju  w(/J.)  J dll'  B (t,  JU,  Id')/  j d(i  w (ju)  • 

O - 1 ' o 


(68) 


where  w(ju)  is  the  source  angular  distribution  function  at  the  left  face  of  the  slab. 
Results  were  obtained  for  two  source  configurations: 

(1)  cosine  current  (isotropic  particle  density) 
distribution 

w(  ju)  = jU, 

(2)  isotropic  current  distribution 

w(ju)  = 1 . 

The  second  of  these  configurations  is  not  physically  realizable,  since  this  would 
correspond  to  an  infinite  particle  density  value  along  the  direction  parallel  to  the 
slab  surface.  In  other  words,  if  0(/d)  is  the  angular  density,  or  the  number  of 
particles  per  unit  volume  moving  in  the  direction  id,  at  the  slab  surface,  then  the 
angular  current  J(ju),  the  number  of  particles  crossing  unit  area  perpendicular  to 
the  direction  of  p,  is  given  by  J(ju)  = ju0(ju ).  Therefore,  if  J(jLl)  is  to  be  isotropic 
and  non-zero,  it  must  have  a constant  finite  non-zero  value  at  p = 0, 

The  numerator  integrals  of  Eqs.  (67)  and  (68)  were  evaluated  using  Gauss 
quadrature,  since  the  functions  Tn(t,  Id,  Id')  and  Bn<t,  ju,  ju')  were  already  evalua- 
ted at  the  Gaussian  ordinates.  The  denominator  integrals  were  evaluated  exactly. 
For  the  cosine  current  source,  the  value  of  the  denominator  is  1/2,  and  for  the 
isotropic  current  source  it  has  a value  of  1.  The  working  expressions  for  the 
transmitted  and  reflected  currents  then  become 


T (t)  = 

2 £ 

A. a . 

n 

j 

n 

Bit)  = 

2£ 

A .ju . 

n 

j 

n 

E Ak  Tn(t.  Id.,  idk)  , 
E Ak  Bn(t,  Id.,  Idk)  . 


(69) 

(70) 


for  the  cosine  source  and 


Tn(t)  = £A.LAk  Tn(t.  ju  , Mk>  . 
j ' k 

Bn(t)  = £a.  SAk  Bn(t,  Id.,  Idk)  . 
j J k J 

for  the  isotropic  source. 


(71) 
(7  2) 
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It  was  found  that  good  comparisons  with  other  calculations  were  obtained  if 
six  discrete  ordinates  per  quadrant  were  used  for  all  scatterings  up  to  order  ten 
for  slab  thicknesses  up  to  one  mfp.  In  this  way  an  artificially  low  transmitted  cur- 
rent at  the  higher  orders  could  be  avoided.  The  use  of  only  two  discrete  ordinates 
per  quadrant  for  the  thin  slab  cases  exaggerates  the  transmission  at  the  lower 
scattering  orders  because  of  the  high  degree  of  granularity  in  angle.  The  Gaussian 
discrete  ordinate  values  are  given  in  Table  3 for  2,  4,  and  6 angles  per  quadrant. 

A comparison  of  the  currents  obtained  using  2 and  6 ordinates  with  the  cosine 
source  configuration  is  given  in  Table  4 for  ten  orders  of  scattering  in  thin  slabs. 


Table  3. 


Gaussian  Discrete  Ordinates 


10 


Number  of 
Ordinates 

6 

4 

2 

Gaussian 

Ordinate, 

Mi 

. 98156 
. 90412 
.76990 
.58732 
. 36783 
. 12523 

. 96029 
. 70667 
. 52553 
. 18343 

. 86114 
. 33998 

For  slab  thicknesses  greater  than  one  mfp,  six  discrete  ordinates  were  used 
for  the  first  three  scattering  orders,  four  were  used  for  orders  four  through  six, 
and  two  for  orders  seven  through  ten.  The  reasoning  leading  to  this  arrangement 
is  that  as  the  number  of  scatters  becomes  sufficiently  high,  and  if  the  slab  is 
sufficiently  thick,  the  granularity  inherent  in  the  choice  of  a low  number  of  discrete 
ordinates  becomes  less  important.  The  particle  has  changed  direction  several 
times  at  this  stage,  so  that  for  isotropic  and  nearly  isotropic  scattering,  the  angular 
distribution  has  grown  diffuse,  and  an  adequate  descriptio-  can  be  achieved  with  the 
equivalent  of  a Legendre  expansion  of  two  or  three  term. 

Curves  of  Tn(t)  and  Bn(t)  plotted  vs  t for  both  source  configurations  are  given 
in  Figures  14,  15,  16,  arid  17.  Twelve  curves,  representing  values  of  n ranging 
from  0 to  10  and  a total  curve,  are  presented  in  each  graph.  A more  detailed 
presentation  of  the  numerical  results  is  given  in  Table  8 where  comparisons  with 
results  obtained  from  Boltzmann  equation  and  Monte  Carlo  calculations  are  shown. 
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Table  4a.  Comparison  of  Particle  Currents  Obtained  with  6 and  2 Discrete 
Ordinates  per  Quadrant  for  10  Orders  of  Scattering;  Cosine  Current  Source 
Configuration;  Isotropic  Scattering: 

Transmission 


Slab 

Width 

(mfp) 

Number  of  Discrete  Ordinates 

6 

2 

6 

2 

n=l 

n=2 

.? 

.4 

.4 

.A 

1.0 

.5«;flOE-oi 
.7o21E-ol 
.?«72E-01 
.6A66E-0 1 
,5a44E-01 

.6347E-01 
.8P27E-01 
• 8 lfiOE-Ol 
.7351E-01 
.6334E-01 

.1384E-01 
•2A23E-01 
. 36 J3E-01 
.3960E-01 
.3969E-01 

. 1266E-01 
i29l6E-01 
.3940E-01 
i4349E-0l 
.4336E-01 

n=3 

n=  4 

.4 

.<S 

• ^ 
1.0 

.3796E-02 
.HllE-01 
,lol4E-01 
.2104E-0J 
.298  IE-  il 

,249c;f-o? 
.9997E-A2 
. lfl0lE-0l 
.219*E-01 
.2737E-01 

•8315E-03 
.43 J9E-02 
. 8928E-02 
• 1314E-01 
• lf>37E-5l 

.4917E-03 
.340JE-02 
;809bE-02 
;i286E-01 
• 1666E-(5l 

n=5 

n=6 

.2 
.4 
• 6 
.« 
1.0 

.2O36E-03 

,l*89E-02 

,4n68E-o2 

.7427E-02 

.1025E-01 

.9ft94E-04 
.11S7E-0? 
. 3627E-0? 
.6A37E-02 
.99A9E-02 

.4988E-04 
.69f3E-03 
.21 J2E-62 
.41/8E-02 
.63/4E-82 

. 1912E-04 
i3933r-03 
•1619E-02 
i3619E-02 
;*>950E-02 

n=7 

n=8 

• 2 
.4 

.A 

1.0 

,l?23E-04 
.2957E-03 
. 10^0E-02 
.2746E-02 
.3949E-02 

.3774E-05 
.1337E-03 
.7?3*E-03 
. 19 IfE-02 
•3S34E-02 

• 2998E-05 
. 9946E-04 
.5069E-03 
.1316E-02 
.2443E-52 

.745SE-06 
i4547E-04 
i3233E-03 
• 1013E-02 
.2099E-02 

n=9 

n=10 

• 2 

• 4 

• 

. A 

1.0 

,7n55E-06 

,3n69E-04 

.2471E-03 

.7777E-03 

.1910E-0? 

. 1477E-06 
. 154qE-04 
. 1449E-03 
.5357E-03 
.l?4*E-0? 

. 1805E-06 
.1595E-54 
.1204E-63 
,4l36E-fi3 
.93J0E-83 

.2913E-07 
• 5258E-05 
.6456E-04 
;2833E-03 
i7390E-03 
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Configuration;  Isotropic  Scattering: 

Reflection 


Slab 

Number  of  Discrete  Ordinates 

Width  - 
(mfp) 

6 

2 

6 

2 

n=l 

HP  2 

.? 

.4 

1.0 

,5«64E-0l 

,8i29E-0l 

.9k07E-o1 

.9767E-01 

.l-lOTE^OO 

.6«i63E-0l 
.930SE-01 
• 105lE*00 
.111 OE*00 
• U39E.00 

•1396E-01 
•2945E-01 
.3999E-01 
.46  J5E-01 
.5102E-01 

. 1270E-01 
i2984E-01 
;4212E-01 
.4980E-01 
ib442E-0l 

hp'c 

hp4 

.? 

.4 

.6 

1.0 

,3t02E-02 

.H26E-01 

,l«81E-0l 

„2t76E-0l 

,2ollE-0l 

.2496E-02 

.1004E-01 

.1831E-01 

.2S08E-01 

.2994E-01 

.8319E-03 

,43b6E-62 

,90b2E-02 

,13b7E-01 

.17J6E-61 

.4917E-03 

;3406E-02 

iBl3bE-02 

;i306E-Ol 

;i727E-f>l 

n=5 

n=( 

1 

.? 

.4 

.4 

.« 

1.0 

.2036E-03 

.U91E-02 

.4392E-02 

.7O2E-02 

.1055E-01 

.9694E-04 
.11S7E-02 
• 3628E-.0? 
.6869E-02 

.ionE-oi 

.49HBE-04 

.6S75E-03 

.21J7E-52 

.4204E-52 

.64S3E-52 

.1912E-04 
.3934E-03 
• 1620E-02 
;3626E-02 
.59B4E-02 

n= 

7 

ip 

8 

.2 

.4 

.4 

.8 

1.0 

.1723E-04 

,2'>57E-03 

,1o41E-02 

.23S2E-02 

.3Q77E-02 

.3774E-05 
.1337E-03 
• 7237E-03 
.191*E-02 
, .3S44E-02 

.2998E-05 

.9946E-04 

.5671E-53 

.1317E-62 

,24blE-02 

.7454E-06 

;4547E-04 

.3233E-03 

il013E-02 

i2i01E-02 

hp 

9 

n= 

10 

• 2 
.4 
.6 
.8 
1.0 

.7154E-06 

.3969E-04 

.2471E-03 

.7382E-03 

,le;13E-02 

.1473E-06 
• 154f)E-04 
.144SE-03 
.5158E-03 
,l?4(SE-02 

. 1805E-06 
.15W5E-04 
.1204E-83 
.4137E-83 
.9337E-53 

.2913E-07 

.5258E-05 

i645t»E-04 

;2833E-03 

;?391E-03 
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REFLECTED  CURRENT 


TRANSMITTED  CURRENT 


S’_R9  THICKNESS! KFP) 


Figure  16.  Transmitted  Current,  Tn(t),  vs  Slab  Thickness,  t,  for  nth  Order 
Isotropic  Scattering  (0«  ns  10);  Isotropic  Current  Source  Confirm ation 
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SLAB  THICKNESSIMFP) 


Figure  17.  Reflected  Current  B„(t),  vs  Slab  Thickness,  t,  for  nth  Order 
Isotropic  Scattering  (Uns  10);  isotropic  Current  Source  Configuration 
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5.  THE  ONF-DIMENSIONAL  BOLTZMANN  EQUATION 
FOR  ISOTROPIC  SCATTERING 


5. 1 Derivation  of  the  On<  nensional  Boltzmann  Equation  for 
Scattering  in  Si 

The  process  oi  itering  in  a slab  geometry  can  be  described  by  the  one- 
dimensional Boltzmann  equation.  11  A demonstration  of  this  is  afforded  by  con- 
sidering the  contribution  to  the  particle  density  d0(z)  at  a point  a distance  z into 
the  slab  (Figure  18)  due  to  particles  emanating  from  an  element  of  volume  dV, 
either  due  to  scattering  within  dV  or  from  an  internal  source  distribution.  If  A 
is  the  scattering  mean-free-path,  constant  for  isotropic  scattering,  and  the  prob- 
ability of  a particle  surviving  a collision  is  denoted  by  c,  then 


d0  (z)  = 
s 


0(z')  + S(z')  j 


dV, 


(73) 


where  s(z)  is  the  internal  source  distribution,  if  one  exists,  and 
r = >[  x2  + (z-z')2  . 


(74) 


Figure  18.  Slab  Coordinate  System 
Showing  Particle  Density  Contribution 
at  z from  Volume  Element  dV 


Then  the  total  particle  density  at  z due  to  scatterings  or  internal  sources  at  every 
value  of  z'  within  the  slab  is 


t 

0g(z)  = / dz'  f dr.  j Ty  0(z')+s(z')]  27rrdr, 

o | z-z '!  4 vr  *-  -> 


(75) 


11.  Forbes,  I.  A.  (1973)  Private  communication. 
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since  dV  = 2?rx(dx)  (dz')  and  r(dr)  = x(dx). 

Integration  over  r results  in 

0g(z)  = 1/2  / dz'  E:(  ) [|  <t>(z')  + s(z')]  . (76) 

o 

oo 

where  E.(x)  = J exp(-u)/u  du  is  the  exponential  integral  function  of  order  one.  In 
the  absence  of  internal  sources,  the  scattered  particle  density  at  any  point  z within 
the  slab  then  becomes 

<t>s(z)  = JX  f dz'E^^J)  0<z'>*  (77) 

o 

In  order  to  obtain  the  total  particle  density,  the  unscattered  density  0u(z)  due 
to  the  presence  of  a surface  source  must  also  be  obtained.  The  differential  form 
of  the  Boltzmann  equation  in  the  absence  of  scattering  and  internal  source  is 

9 < p . 

M + 7 K = 0 ' (78) 

which  has  the  simple  solution 

0u(z,  n)  = 0(0,  n)  e'z/AM,  (79) 

where  n is  the  cosine  of  the  angle  of  incidence  (Figure  19). 


Figure  19.  Source  of  Particles  at  z = 0 


t 
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If  there  is  an  isotropic  density  of  particles  at  z = 0, 


0u(O,  /x)  = 0Q  . (80) 

so  that 

0 (z,  jli)  = 0 e"z/XM  . (81) 

rU  ro 


Integrating  out  the  angular  dependence  yields 

0U(Z)  = ^O  / dM  e"Z/XM 


= E2  (z/X)  , (82) 

1 

where  E„(x)  = f du  exp  (-x/u)  is  the  exponential  integral  function  of  order  two. 
The  total  density  at  z is  then 


0(z)  = 0u(z)  + (f>s(  z) 


t 


+ * / d*' Ei 

O 


(83) 


If  a unit  incident  particle  density  is  assumed,  the  constant  0Q  has  a value  of  unity 
[Eg  (0)=  1],  Also,  the  scattering  is  assumed  to  be  conservative  as  well  as  isotropic 
so  that  c = 1. 

If  the  distance  variable  is  expressed  in  units  of  X,  that  is  z/X-»z,  t/X-*t,  the 
final  form  of  the  one-dimensional  Boltzmann  equation  for  the  particle  density  within 
the  slab  is 

t 

0(z)  = Eg(z)  + 1/2  / dz'  E x (|  z-z  ' !)  0(z')  . (84) 


5.2  Iterative  Solution  Method  and  Expressions  for  Transmitted 
and  Reflected  Currents 

The  integral  equation  (Eq.  84)  is  of  the  Fredholm  type  and  may  be  solved  by 

1 2 

i tans  of  an  iterative  procedure.  Let  0 (z)  be  the  nth  approximation  to  the  solu- 
tion of  Eq.  (84),  and  let  0 ( z)  = E2(z).  Then  0n(z)  is  given  iteratively  by 

12.  Lovitt,  W.V.  (1950)  Linear  Integral  Equations,  Dover  Publications,  Inc., 

New  York. 


(85) 


iiinSrtf  Tfr  - *-  - ~ 


0 ( z)  - 0 (z)  + 1/2  j dz'  E (|z-z'|)  0 (z') 

n o J 1'  ' n - 1 


A physical  significance  can  be  attributed  to  these  iterations.  If  the  quantity  Sn  is 
defined  as 


S (z)  = 0 (z)  - 0 ,(z)  , n > 1 

n n rn- i 


(86a) 


and 


S (z)  2 0 (z)  , 
o o 


(86b) 


then  Sn(z)  satisfies  the  equation 


S (z)  = 1/2  f E.  (|z-z'|)  S (z')dz' 
n J l ' n- 1 


(87) 


Physically,  since  E,  (!  z-z  ' [ ) is  the  single  collision  kernel,  S (z)  represents  the 

1 n 13 

collision  or  source  density  of  particles  that  have  collided  isotropically  ;i  times. 

In  other  words,  each  iteration  of  Eq.  (85)  adds  another  generation  of  scattering 

order  to  the  particle  density.  The  logical  extension  of  this  argument  is  that 

0(z)  = 0^(2). 

Finally,  the  transmitted  and  reflected  currents  at  z = t and  z = 0,  respectively, 
can  be  obtained  for  each  order  of  scattering.  If  Sn_j(z)  is  the  density  of  particles 
scattered  n-1  times  at  z (Figure  20),  then  the  transmitted  current  of  order  n at 
z = t is  given  by 

1 t (t-z) 


T>=  / ^/fe'V'iS^z) 


where,  as  before,  z is  given  in  units  of  mean-free-path,  so  that  the  probability  of 
a scatter  occurring  in  the  distance  interval  dz !\x  is  simply  dz  j\x.  When  the 
angular  dependence  is  integrated  out,  the  result  is 
t 

T?  (t)  = f dz  E9(t  - z)  S At.).  (88) 

n J A n-l 


13,  Sobolev,  V.V,  (1963)  A Treatise  on  Radiative  Transfer,  D,  Van  Nostrand  Co. , 
Inc,,  Princeton,  N.T 


58 


Figure  20.  Transmitted  and  Reflected  Currents.  T®(t) 

and  B®(t),  from  Distributed  Sources  of  Scatter?  1 

Particles  S Az) 
n- 1 


Similarly,  for  the  reflected  current 
o t 

B > = f e-z/V  |MI  S .(z) 

n -1  o I M I n_1 

t 

= / dz  E_(z)  S ,(z)  . (89) 

& n- 1 
o 

B B 

The  currents  T^U)  and  Bn(t)  (the  superscripts  denote  results  obtained  from  the 
Boltzmann  equation  method)  should  be  directly  comparable  to  those  obtained  by  the 
OOSII  method  for  the  cosine  current  (isotropic  particle  density)  source.  The 
numerical  values  obtained  by  these  two  methods  are  in  fact  very  close  as  is  shown 
in  Table  8. 

5.3  Numerical  Solution  of  the  One- Dimensional  floltzmann  Equation 
for  Isotropic  Scatter  m Slabs 

A computer  program  was  written  which  solves  the  integral  equation 
t 

0n(z)  = </>Q(z)  + 1/2  f Ej(  I z-z  ' | ) j(z  ')  dz ' . (85) 

o 

If  the  substitution  y = z-z'  is  made,  Eq,  (85)  can  be  rewritten  in  a form  more 
amenable  to  computation  as  follows: 

t-z 

^n(z)  = ^o(z)  + 1^2  / ^n-l(z  + y>  Ei(y>dy 

Z O 

+ 1/2  f (z  - y)  E1(y)dy  . (90) 
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Let  the  first  integral  in  the  above  expression  be  denoted  as 


t-z 

I=  / «n-i(z+y)  Ei(y)dy*  od 

o 

The  function  E-(y)  can  be  expressed  in  exact  form  as 

00 

E (y)  = - y - lny  -E  . (92) 

1 n=  1 n ‘ n ‘ 


where  y is  Euler's  constant.  The  integral  1 can  be  separated  into  the  following  two 
integrals: 

1 = - (Ij  + I2)  . (93) 

where 

t-z 

= J 0n.1(z  + y)*  In  y dy  . (94) 

o 

and 

t-Z  oo 

T2  = f [’'+£  'n"-''n'!  ]^n- 1 (z  + y)  dy  - (95) 

o n=  1 

The  first  of  these  integrals,  1^,  can  be  handled  by  means  of  a Gauss  quadrature 
specifically  developed  for  evaluating  integrals  involving  products  of  logarithms  with 
arbitrary  nonsingular  functions.  10,  14  If  the  following  substitutions  are  made 

A = t - z and  u^  = y/A  , 


the  logarithmic  integral  becomes 


1 


lj  = A J 0n_1  (z  + AUj)ln  (AUj)  dUj  , 

b 


(96a) 


or 


14.  Crosbie,  A.L.,  Merriam,  R.  L. , and  Viskanta,  R.  (1968)  J.  Quant.  Spectr.  Rad, 
Transfer,  8:1609. 
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(96b) 


M. 


T1  = A^.  Ak  Vl(z  + AulJ  + Ila' 
k=l  k 


with 


I.  = A In  A ( (b  , (z  + Aw)dw 
la.  j 1 n- 1 


(97) 


The  are  the  prescribed  quadrature  ordinates,  and  the  are  their  correspond- 
ing quadrature  coefficients.  Since  the  additional  term  1^  contains  no  logarithm 
in  the  integrand,  it  is  evaluated  by  the  standard  Gauss  quadrature  procedure  as  will 
be  outlined  in  the  evaluation  of  the  integral  Ig. 

The  second  integral,  can  be  evaluated  by  the  standard  Gauss  quadrr  jure 
technique.  When  the  transformations  A = t-z  and  u2  = 2y/A  -1  are  made,  the 
result  is 


l2  ~ \ f \y  + 

Z -1  ' 1-- 


(-1)^  r a(i+u2)-i<'  ) . A , 

^Fir  L \ K-l(Z  + %il  + u2])  du2  * (98a) 


or 


M2 

In  = £ £ B 
* k=l 
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[^] 


^n-l(z  + %(1  + u2,  ^ ’ 
k 

(98b) 


where  the  U2  and  the  are  the  quadrature  crdinates  and  their  corresponding 
coefficients.  In  the  actual  calculations,  M and  M were  chosen  to  be  16  and  32, 
respectively.  The  summation  over  t was  not  carried  out  to  SO  terms  if  sufficient 
covergence  could  be  achieved  with  a lower  l value. 

The  integrals  involving  (z-y)  are  dealt  with  in  the  same  manner  as  those 
above,  so  that  the  resulting  computational  form  for  Eq.  (85)  becomes 


VZ)  = ^o(z)  " \ 


M, 


M, 


• Ak  ^n-1  (Z1  Au1  )+Z^  Ak  ^n-1  (Z"  ZU1 

k=  1 k n 1 1 ik  k=1  k n i ij, 

M2 

+ | <y  + lnA)S  Hk*n_1(.  + |(l  + u 2 )) 

K — i K 


M, 


+ \ (^+  lnz)£.  \ Vl(?(1  ~U2j) 

k~  1 k 
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+ ^=1  \^{  2]  — (1  + \>  K-l(Z+2(1  + U2j 

M2  60  l+l  Jt  t 

♦*=,  Ek£  ,<!>  3TZT  (1‘V  *n-l<f(1-“2kl>  • <99> 

V 

The  function  6 (z)  was  taken  to  be  E„(z). 

O A 

Typical  computational  results  for  the  cumulative  particle  density  distribution 
up  to  lOt’u  order  of  scattering  are  given  in  Tables  5,  6,  and  7 for  slab  thicknesses 
of  1,  5,  and  10  mfp,  respectively. 

A final  computation  is  that  of  the  transmitted  and  reflected  currents  as  functions 
of  scattering  order.  The  expressions  for  these,  given  by  Eqs.  (88)  and  (89),  are 
evaluated  using  a Simpson's  rule  integration. 

6.  MONTE  CARLO  CALCULATION  OF  PARTICLE  TRANSPORT  IN  SLABS 
6.1  General  Discussion 

The  Monte  Carlo  method  as  applied  to  particle  transport  consists  basically  of 
attempting  to  describe  the  behavior  of  an  entire  ensemble  of  particles  by  tracing 
the  histories  of  many  individual  particles  as  they  migrate  through  the  scattering 
medium.  Appropriate  summations  over  a sufficiently  large  number  of  these  his- 
tories are  made  in  order  to  arrive  at  a description  of  the  ensemble  as  a whole. 

While  this  method  lacks  the  elegance  and  computational  efficiency  associated  with 
some  other  types  of  transport  calculations,  it  does  provide  an  extremely  high  degree 
of  flexibility  with  regard  to  the  variety  of  problems  that  can  be  handled.  Results  of 
Monte  Carlo  calculations  are  used  here  to  confirm  the  results  obtained  by  the  OOSII 
method  and  the  Boltzmann  equation  solutions.  The  method  is  conceptually 
simple  and  provides  a truly  independent  means  to  such  a confirmation. 

A Monte  Carlo  program  was  written  to  study  the  transport  of  particles  in 
scattering  slabs.  The  computation  is  organized  into  two  main  parts.  Part  I con- 
sists of:  (1)  the  generation  of  a plane  isotropic  (current)  source  of  particles  at  the 
boundary  of  an  infinite  slab;  (2)  the  tracing  of  the  particle  histories  through  the 
medium  while  keeping  account  and  recording  the  collision  site  positions,  trajectory 
orientations,  and  orders  of  scattering.  Part  II  superimposes  a source  distribution 
function  on  the  plane  isotropic  source  and  calculates  the  transmitted  and  reflected 
currents  for  each  order  of  scattering  and  for  a number  of  finite  slab  thicknesses 
assumed  to  be  imbedded  within  the  infinite  slab. 
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Table  5.  Cumulative  Particle  Density  Distribution,  0n(*):  Slab  Width  = 1.  0 mfp  (Cont) 


———————  -<-<-<  OlOIOIOIOfCt  1019(01010 1 

010<0<0<01010 1 eoooio«!o«io>oiOiOieio 
♦ ♦♦♦♦♦♦  ♦■♦•♦♦♦♦♦♦♦♦♦♦♦♦ 
UJ  UJ  UJ  UJ  UJ  UJ  UJ  UJUJUJUJUIUJUJUJUJUJUJUJUJUJ 
o'«jf»>o«®®<*>f*4(*>®in® 
NIM^NSna  —IT  >»>OlANOMnh.N  onn 
mtst-t  — 91—  cm  tnN>«?>*  4®®<\j-*<\J0'in*-«r> 

— 4 ® <*)  ® <*)  ® <*)®^^<vO<*l'£)CO^<D^OO 
in  ■»  <tct«iN«  — < oo  o 4 oin  o«n  o<m  o>tn  ® 

— — — — — — ——  — — 


I — — — — — — — — 0101010(0010  <010)0101 

M0O<0<0<0< 00010(0100 lOOIOIOIOIOlO  < 
>♦♦♦♦♦  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

J UJ  LU  UJ  U.'  UJ  UlUJUJUJUJUJUJUJUJUJUJUJUJLiJ 
-O'®®®®  UtMi4MOi4  4l>ISlfl<llVM^ 

) (U  ® r»  — in  r-44*J-«4®'0'n  91—  <T  4 !«■ 

' nj  ® r*-  ® ® -<-tr^vo®-<-<®®<\i-H®(^<*) 
i«ftjhMNn«nonNoAi^i>onM*i 
'flniMiMH  Hoo<J-»0'<noi'io(fioi^N 
* — — — — ———— (T9CQ9Q0^‘t*-*O'Gif\'f 


— — — — — — — — 1-1  — 0<OIO<OIOOIO<0<OIOIOI 
0<00<0<0<OIO<000<OIOIO<OIOO<0<OOIOIOI 

♦ 1 4 4 14  14  ' 4 4 I 4 4 <4  '4  4 ♦ 4 14  ♦ 14  ♦ 4 I 4 4’ 

<i I <i I ul  lil  lil  lt I lil  1 1 1 1 1 1 ill  lil  lil  1 1 1 ill  i) I (.1  1 j 1 i.i  |j | i,|  lit 

x|fn<oif<co«(v<co»<oineic<"4ro<i 
o o o«\j  a <r  nj  —1  h-  ®in®®cu®®®  o in  4 r- 
« <0  ® 4 OJ  OJ  4 ^®-®^4>04MV||fl^oirt 
omr^nj^mr-  i\Jt'-r>4®-44f--0'  — — ®r>m 
<n-t  nnivnyx  -<  00  <cc  n ® 4 ® 4 o«n  ® 4 r- 

— — — — — — — ——  — it  ®«®F«-^i^®inin-t 


— — — — — — — — —— oooccooocc  o 

OOOOO  OlO  000  0 0000  00  o o<o  o 

♦ ♦♦4444  444444444444  44 

UJ  IU  UJ  UJ  Ul  UJ  UJ  UJUJUJUJUJUJUJUJUJUJUJUJUJUJ 

— • « 4 ® ® yo  c04r-r>r^O'®—:<\j<ymn®r- 

ac  ® r-  ® in  4 -irn<\iMf4'£M4djo 
<vjo>  — '£44irr~<?<vir<r<\'Cr^4no®r>-o 
o rv  <^  — yo  — vo  — i®<vjir^<\ir®'-n>4  <\j  r-  © 
ir4r'r<v<v  — ^-ocr'n.ecrcc4(r4<rrr' 
———————  — — — <yoorccr^r^'c<cu-ir~3 


< — — — — oooooooooco 

<00000 00000000000000 
44444  44444444444444 
- UJ  UJ  UJ  UJ  UJ  UJUJ  UJUIUJUJUJUJUJUJUJU-UJU. 
®®4®-«M®in-tnr»o®h-®o®(v.n 
i ® ® ® ® n <o«nin®oh«nnN\oo® 
■ it  4 — <o-M<M4r-4®in-Nr'®iror-  ® ® 
<ircircLroiroerry«4r-c<v  — r-  — 
■nnn  nj  — -ooi-®\M^i  n ® cvi  >c 
— — — «'®0'Q®r-r-'Ct®intn4 


oinoinoino  mom  otnoinoinotnoino 
cc--<v  «j  n r>-4  4irir«<fhMteff?c 


o o o 
♦ ♦ ♦ 

LaJ  LaJ  iiJ 
© P“  CO 
ni r -4 
Oo(\l 

+ n 

i/^  n h 


>-4  0 0 
© © © 
♦ ♦ ♦ 

UJUJ  UJ 

vOO  M 

a co  a 
r>  co  oj 

-4-4 
©oo  o 
-Hco 


© © © 
© © © 
♦ ♦ ♦ 

UJ  UJ  UJ 

n tn  n 
vo  in  n 
© *-  in 
© oo  N 
vc  co 
in 


© © © © 
© © © © 
♦ ♦ ♦ ♦ 

UJ  UJ  UJ  UJ 
in  —4  co  ^ 
in  © ^ co 
*—  © o r> 
MnnN 
-4  in  © in 
-innw 


O O © 
© © © I 

UJ  UJ  UJ  I 
r)  (M  © i 
(Vl  MD  P»* 

-4  *4*  < 

oo  4-  in  - 

-4  CO  IT  i 
(VI  ^ — i 


>00000000 
I I I I I I I I 

JUJUJUJUJUJUJUJUJ 

inwoop)^  coiro' 
iircor^^co^ir(Vj 
io»in'0fn-4cocn© 
>OJ©©©COOOOJOJ 
• cvjp^^ojfn^r^o* 
niviN 


OOiOh 
♦ ♦ ♦ 

UJ  UJ  UJ  I 

(nn^oi 
ci  p*  <o  I 
CO  CO  P-  » 
0*4  CO  < 

inM©« 


>(©{©(©  (©<©(© '©(©(©  (-4  -*  -*  -*  -*  . 

>i©i©i©[©i©i©t©©  ©•©»©  i©  i©  i©  i©  n 

*♦♦♦♦♦♦♦♦♦  I I I I I I 

JUJUJUJUJliJUJUJUJUiUJUJUJUJUJUJl 
) 0s  0s  ©<r)-©o>©^ao©r,)p-*-4<\j. 

* ao  © © i-4  ,*  in  ® <\j  © ico  in  *-  co  r 

• aootn-Hfsjinor^ooaoojtvjocvM 

‘CO-4<#©>t©f^^t-N©njo«o«oao» 
»'t't  fncvjojoj-4^4-4©  co  in  ch  r 


« ©<©Oi©l©l©t©(©(©*Oi©l©tOW-4  . 

><•  i©  o m © i©  i©  i©  io  to  (o  (©  (©i©K 

J UJ  UJUJUJUJ  UJ  UJ  UJ  UJ  UJ  UJ  UJ  UJ  UJ  I 

Doofn^(\joj(M-4r>-N©floooo^4< 

4 in  >*  sO  P-  P-  >t  ©*\J  (VI  x£  l 

5r>(Mao^©ininoO'Oir(M(\j©c> 

3oiN9k't<oirNon^oirp)(Oi 

40(\jaor-NO(\jr^(viooinoj©4>( 

4ooO'Oin'tnn(\j(\i  — HHHflOt 


—4  -4  OlOptOiOlOlOtOlOtOiOM  »M4444-4»444*>4-4-4(VI(VI<V3 
OOiO<OOiOiOlOiOiOtOiOiOiOiOtOro<OiO  l0 ,0  »©i©i©i©i©i 
♦ ♦ ♦♦  ♦ ♦♦♦♦♦!♦  ► 4 | I I I I I I I I I I I I 

UJUJUJUJUJUJUJUJUJUJ  i/I  UJUJUJUJ'aJUJUJUJUJUJUJUJ  j uj  uj 

in  co  vn  in  ao  a-  >t  >tir  or^©m©ircoaoao>*p-ooo<vjin<vjoo 
inao»on  - (MnM’nooo'M-inoinn  Noi©i>t  cp-  ,o  oo  © 

p^>op^— ao©>t'tco(MirsO(Msca-40o^r^(vr^o  — noja* 
n ©nr  ^ in  in  vo  (M"n  om  (\i  ©<vj  'C'tr>inoornooinojvoir>i 

44  •—  cc  v£)ir<tro(\jfvj^i-»*— *-4  00'Oir<t  rn(V(\»^-^-^a,f^ir 


HCOCCOOOOCHHHnHHHHHH(M(\l(M(\l(V^ 
OO  O O OlO©  © o O OO  oo  to  © o oo©  o o i©  OIOOI 

♦♦,♦♦♦♦♦♦♦♦  I I I I I I I I • I I • I I I I 

UJUJUJUJUJUJUJUJUJUJUJUJUJUIUJUJUJUJUJUJUJUJUJUJUJUI 

©MllN^n©(P-i©N-lV<PlV^NOin©^(VI(M^(p(P 

oo*—  <Vh*c,-*ir-*4,irN(\«tfC/sc-~h-cc>0(Vj©h“fr©*cp*> 

(PCP— ncPONO  N CC  © —4  0J  (VI  © O'  -4  © PO  <£  (VI  -4  © -4 

4 »occ  - n o n h**n©GCP^oo^©©^>op^*CNir-4©h* 
^ff'f-acrcc^^--(^^lfvcccr(r4-•fr4aM'^ 
-40c*circ'rr(v-4-44*©  h*  in  * r*  <v  tv  -»  -4  — © h*  if  ^ Pr  n 


>00000-^^-4^ 

'ooooooooo 
'♦♦♦♦♦  I I I I 

J UJ  UJ  U-  UJ  UJ  UJ  UJ  UJ  UJ 
■ co^(\jip*$©ojmrn 

> <o  coin  © o<©  m in  * 
.'n-^co^-^co  © -4  n 
lO'fcct-accair 

> AONo^-r  rarN 
innjoj— -4C04O^n 


^4^4  — -4-4(\j(v  rvrvj  (v  r\  oj  (v  (\  m 

OOOOOOOOOOOOOOO 
I I I I I I I I I I I I I I I 

uj  uj  uj  uj  uj  uj  uj  Uj  uj  uj  u:  uj  uj  uj  uj 

p-mocviorosorornrnooo^co© 

<vi-4r,/in-4vO©(vjoo(vir^©(vinso 

c'vcvc-44'sornsorncc  so  co  ro  it 

©^'tf>c*cr^«<pif©(\©orirsc 

co(viNn©nin-4©-4ircin(Vj© 

(VI  (VI  -4  -4  ^4  00  4 IT  <P  n (M-4--CP 


©Aj^vnaoocvj^-sooo  cxvi^40aoo(vi^>oco©i(vi^40(r© 

© -4 -4 44 -4  eg  oj  (Vi  oj  oj  ro  r>  r>  ro  n ^ ^ ^ in 


Table  6.  Cumulative  Particle  Density  Distribution,  0n<z):  Slab  Width  = 5.  0 mfp  (Cont) 
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6.2  Generation  of  Particle  Histories  (Part  1) 

The  discussion  which  follows  pertains  only  to  conservative  scattering,  iso- 
tropic in  the  laboratory  system.  Other  Monte  Carlo  programs  were  written  to 
handle  various  types  of  anisotropic  scattering.  In  later  sections  these  will  be 
discussed  only  to  the  extent  to  which  they  differ  from  the  present  calculation. 

When  a particle  history  is  originated  at  the  source  plane,  the  initial  direction, 
relative  to  the  laboratory  coordinate  system,  of  departure  from  the  source  point 
is  determined.  The  initial  polar  angie  of  the  trajectory  with  respect  to  the  z-axis 
(z  is  as  before  perpendicular  to  the  slab  surface)  is  determined  by  sampling  a 
uniform  random  number  distribution.  Let  r^  be  a uniformly  distributed  random 
number  (actually  a computer  generated  pseudo-random  number)  where  0<r^<l. 
Then  the  cosine  of  the  initial  polar  angle  is 

I Lt  = cos  8 = r . (100) 

0 o 1 

The  azimuthal  direction,  <j>,  is  chosen  to  be  zero. 

The  penetration  distance  between  collisions  is  determined  by  inversion  of  the 
exponential  attenuation  formula  for  particle  flux  in  an  attenuating  medium.  The 
exponential  attenuation  factor  is  selected  from  a set  of  uniformly  distributed  ran- 
dom numbers  r^,  where  0<'r2<l,  so  that 

r„  = exp(-s  / X)  , (101) 

1 n 

where  X is  the  scattering  mean-free-path  and  sn  is  the  penetration  distance  after 
the  nth  scatter.  The  inverse  of  this  expression  yields  the  following  direct  deter- 
mination of  s : 
n 

sn  = -X*  loge(r2)  . (102) 

Once  the  penetration  distance  is  computed,  the  coordinates  of  the  next  point 
of  interaction  are  determined.  Given  that  the  nth  interaction  occurs  at  the  point 
(xn<  y^,  z^)  and  the  direction  of  the  particle  trajectory  after  the  interaction  is 
defined  by  the  angles  8 n,  0n,  respectively  the  polar  and  azimuthal  angles  in  the 
laboratory  frame,  then  the  coordinates  of  the  point  of  next  interaction  are  'iven  by 
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xn+l 

y^i 

zn+ 1 


. . n ,n 

x + s sintf  cos  9 , 
n n 


v + s sin0nsin9n. 
Jn  n 


z + s cos 0 
n n 


(103a) 

(103b) 

(103c) 


The  superscript  n denotes  orientation  after  the  nth  collision.  The  collision  posi- 
tions and  trajectory  orientations  are  recorded  in  a mass  storage  file  for  every 
collision  of  every  particle.  This  file  is  subsequently  used  for  the  particle  current 

computations. 

Selection  of  the  post- collision  orientation  for  isotropic  scattering  in  the  labora- 
tory system  consists  of  making  a random  choice  for  the  cosine  of  the  polar  angle 
0n,  as  was  done  for  the  initial  polar  angle.  Since  the  scattering  is  isotropic  in 
azimuth,  the  azimuthal  orientation  is  obtained  by  random  selection  of  the  angle  on 
the  interval  (0,  2r).  That  is.  letrgbe  a uniformly  distributed  random  number  where 

0<r3<l,  then 


<j>n  = 2frrg  . 


(104) 


The  above  procedure  is  repeated  until  the  particle  has  either  undergone  a 
prespecified  maximum  number  of  collisions  in  the  slab  or  has  been  backscattered 
out  of  the  slab  tl  .ough  the  source  face. 

6.3  Determination  of  Transmitted  and  Reflected  Currents  for 
Slabs  of  Various  Widths  (Part  II) 

As  a result  of  the  operation  of  Part  I of  the  Monte  Carlo  program,  the  pertinent 
statistics  of  the  scattered  particles  at  every  collision  site  are  stored  and  available 
for  analysis.  The  program  which  computes  the  transmitted  and  reflected  currents 
consists  of  a straightforward  particle  counting  procedure.  I grid  of  finite  slab 
boundaries  is  superimposed  within  the  infinite  slab  (Figure  21).  As  was  previously 
stated,  particle  histories  are  terminated  in  one  of  two  ways,  either  by  having 
undergone  a maximum  allowed  number  of  collisions  within  the  slab  or  by  back- 
scatter  out  of  the  slab.  The  first  situation  is  depicted  by  the  dashed  line  trajectory 
of  Figure  21,  and  the  second  by  the  solid  line  trajectory.  The  particle  counting 
procedure  executed  by  the  program  assigns  the  following  interpretation  to  the 
dashed  line  trajectory: 

(1)  transmission  through  a slab  of  thickness  tg 
after  0 collisions. 
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(2)  transmission  through  a slab  of  thickness  t„ 

after  1 collision,  ^ 

(3)  transmission  through  a slab  of  thickness  t« 

after  2 collisions,  J 

(4)  transmission  through  a slab  of  thickness 

after  7 collisions,  4 

and  the  following  interpretation  to  the  solid  line  trajectory: 

(1)  transmission  through  a slab  of  thickness  t1 

after  0 collisions,  1 

(2)  transmission  through  a slab  of  thickness  t2 
after  2 collisions, 

(3)  transmission  through  a slab  of  thickness  t„ 

after  4 collisions,  d 

(4)  transmission  through  a slab  of  thickness  t. 

after  8 collisions,  4 

(5)  backscatter  from  a slab  of  thickness  t,- 
aft’r  11  collisions, 

(6)  backscatter  from  a slab  of  thickness  tR 
after  11  collisions, 

(7)  backscatter  from  a slab  of  thickness  t„ 
after  11  collisions, 


backscatter  from  a slab  of  thickness  t 
after  11  collisions.  m 

The  transmission  and  reflection  current  bins  are  illed  by  the  application  of 
this  counting  procedure  to  every  particle  history.  As  each  history  is  considered, 
it  is  assigned  a source  weighting  factor.  For  the  case  of  the  cosine  current 
source,  the  tallied  figure  in  each  bin  is  simply  twice  the  initial  polar  angle  cosine, 
Mq.  of  each  trajectory  (the  factor  of  two  is  required  for  source  normalization), 
and  in  the  isotropic  current  source  case,  the  tallied  figure  in  each  bin  is  unity. 

The  final  normalized  currents  are  obtained  by  dividing  these  sums  by  the  total 
number  of  particle  histories  considered. 

The  results  of  these  Monte  Carlo  computations  are  given  in  Table  8,  where  a 
comparison  with  i.he  results  obtained  by  the  two  methods  previously  discussed  is 
readily  available.  For  the  isotropic  scattering  case,  100,  000  histories  were  run. 

, 
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Table  8a.  Transmitted  Particle  Currents,  T_(t)  Obtained  by 
Three  Methods,  Through  Slabs  of  Various  Widths,  t: 

Unit  Current  Cosine  Distributed  Source;  Isotropic  Scatter 


n 

Transmitted  Current,  Tn(t) 

OOSII 

Boltzmann 

Monte  Carlo 

0 

•21 9784E+00 

•219384F.OO 

•?17266E*00 

1 

•116a89E.flO 

• 1 16?97F*00 

• 1 16l96E*00 

2 

.793*53E-ni 

. 791167001 

•795006E-01 

3 

•5161 97E-01 

.51 5F48F-0 1 

•519376E-01 

4 

•327453E-01 

•327732F-01 

•3J5511E-01 

1.0 

5 

•205a05E-01 

•2P5669F-01 

•20R948E-01 

6 

•127476E-01 

•1?820PF-01 

•128867E-01 

7 

•7R9934E-P? 

•796741F-0? 

•804417E-02 

8 

.4R8657E-P2 

•49378SF-0? 

•533798E-02 

9 

•302n27E-02 

•305o0?F-02 

•319136E-0? 

10 

•186f78E-02 

•189426F-02 

•190455E-02 

0 

•602668E-01 

•602667F-01 

• 60817  7E-01 

l 

•507*40E-01 

• 5061 39F-01 

.499473F.-01 

2 

•487^23E-0 1 

•486P28F-01 

.484898E-01 

3 

•475F97E-P 1 

•434810F-01 

.429898E-01 

4 

• 772407E-0 1 

•371 n0RF-01 

•369740E-01 

' - ♦ o 

5 

• 308r»l7E-01 

•307l 83F-01 

•308832E-01 

6 

•249R00E-01 

•249417F-01 

•246029E-01 

7 

•203il 8E-01 

•199O41F-01 

•204526E-01 

8 

•159fl31E-ftl 

•158o5?F-01 

•157407E-01 

9 

•124966E-01 

•125687F-01 

•l27975E~6l 

10 

•973n58E-n? 

,990?99F-02 

•103213E-01 

0 

•178613E-01 

.178*17f-01 

.1 J4868E-01 

\ 

•191759E-01 

• 19'i  ?7l  F-01 

•193656E-01 

2 

•222302E-01 

•2?1 743F-01 

•217870E-01 

3 

•2361 18E-01 

•275604F-01 

•2J2296E-01 

4 

•236B71E-01 

•235764F-01 

•240183E-01 

3.0 

5 

•??7i 88E-01 

•226?68F-01 

•2*5202E-6l 

6 

•31 1493E-01 

•210775F-01 

•204169E-01 

7 

•1O6672E-01 

•192161F-01 

•195733E-01 

8 

• 1 76fi79E-01 

• 1 72466F— 0 1 

• 1 /2665E-01 

9 

•155689E-A1 

•1^3o26F-01 

•152780E-01 

10 

.136432E-61 

. 1 74648F-01 

•1 J40F1E-01 

0 

• 552->72E-02 

• 552?72p'~02 

•533401E-02 

1 

•696150E-P2 

•694q96F-0? 

•680952E-0? 

2 

•916667E-82 

.914*95F-02 

•8A0921E-O7 

3 

•109F95E-01 

• 1 fl9"i9 1 F— 0 1 

•107912E-01 

4 

•122O03E-01 

•1F2224F-01 

.123640E-01 

4,0 

5 

• 130579E-01 

•170005F-01 

•1J208^E-01 

6 

•133926E-ni 

•133291F-01 

•129?78E-01 

7 

•135i06E-Ol 

•132888F-01 

•1J1S79E-01 

8 

•131926E-P1 

• 129(S67F-01 

• 1 33520E-0 1 

9 

•126F70E-01 

• 1 244 1 9F-01 

•124103E-01 

10 

•119770E-01 

•117R39F-01 

.1191  »’1E-01 
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Table  8a.  Transmitted  Particle  Currents,  T„(t),  Obtained  by 
Three  Methods,  Through  Slabs  of  Various  Widths,  t:  Unit 
Current  Cosine  Distributed  Source;  Isotropic  Scatter  (Cont) 


t 

n 

Transmitted  Current,  T (t) 

n 

OOSII 

Boltzmann 

Monte  Carlo 

0 

•175860E-02 

•175860F-02 

.UL346E-02 

1 

.?49rt86E-n2 

.248708F-0? 

.247894E-02 

2 

•J6QS51E-02 

. 359R57F-02 

.3'2383E-02 

3 

.471788E-0? 

.470691T-0? 

.444367E-02 

4 

.574610E-02 

.S72l34r-02 

.549586E-02 

5,0 

5 

• 661"*21E-02 

•658910F-02 

.648722E-02 

6 

•731fl06E-02 

.728030^-02 

.7 J8797E-02 

7 

.788730E-02 

•778684F-02 

.804580E-02 

8 

.82?q48E-02 

• 8 1 1647F-02 

•825830E-0? 

9 

.840564E-*2 

.828623F-02 

.796229E-02 

10 

•844n41E-02 

•831849F-02 

.8i>4578E-0? 

0 

.564708E-03 

•b69?07F-03 

— .-6T4-9T4E-03' 

1 

.885422E-A3 

.883926^-03 

.697931E-03 

2 

. 138164E-02 

•137R94F-0? 

.1 J9510E-02 

3 

.1O4011E-02 

.1O3624F-02 

.191324F-02 

4 

•253i01E-02 

.282001F-02 

.2b515(5E-02 

6.0 

5 

.3U022E-02 

.3'i9672F-02 

.294659E-02 

6 

.36544’E-02 

•36388RE-02 

.328198E-02 

7 

,418p47E-02 

•41 2604F-02 

.415100E-02 

8 

.460*44E-02 

.454494F-02 

.466406E;-02 

9 

•495F42E-02 

.488880F-0? 

.470109E-02 

10 

.52J>?13E-02 

•Sl5f 12F-02 

.524053E-02 

0 

. 187ii3E-03 

• 1 873 1 3F-03 

~779l0E-03 

1 

• 313978E-03 

.313515F-03 

.227486E-03 

2 

.52ll29E-03 

.S20006F-03 

.590133E-03 

3 

.776l66E-03 

.774554F-03 

.626990E-03 

4 

•107192E-0? 

.106739F-02 

.U8984E-02 

5 

.1391 12E-02 

. 1 38532F-02 

.140656E-02 

6 

.172»32E-02 

.171521F-02 

.166816E-02 

7 

.207847E-02 

.204441F-02 

.213144E-02 

8 

.239p20E-02 

•2361 79F-02 

.235004E-02 

9 

• 269t36E-(I2 

.265834F-02 

.2P2694E-02 

10 

.296904E-02 

.292731F-02 

,285283E-r> 

0 

.623*14E-04 

.623615F-04 

.5J277SE- 74 

1 

.1U972E-03 

• 1 1 1 1 27F-03 

.6b2521E-04 

2 

.194559E-03 

.l«3929r-03 

. 162697E-03 

3 

.304786E-03 

.303618F-03 

.2/3S90E-03 

4 

.441-52E-03 

• 4397  52F-03 

.52343?E-03 

8,0 

5 

.600473E-03 

.598'  i'(9F-03 

.608133E-03 

6 

.778417E-03 

•775?8?F-03 

•624697E-03 

7 

•9R4R10E-03 

.965?75F-03 

.9/5051E-03 

8 

• 1 18410E-O2 

.116280F-0? 

.115256E-02 

9 

.138S43E-02 

.136239F-02 

• 124661E-02 

10 

.1«58378E-<12 

.155896F-02 

.147020E-02 
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Table  8b.  Reflected  Particle  Currents,  B (t)  Obtained  by 
Three  Methods,  from  Slabs  of  Various  Widths,  t:  Unit 
Current  Cosine  Distributed  Source;  Isotropic  Scatter 


t 

n 

Reflected  Current,  Bn(t) 

OOSII 

Boltzmann 

Monte  Carlo 

0 

0 • 

0. 

0. 

1 

.201373E+00 

* 197  J20F *00 

♦197135F+00 

2 

•102034E.00 

.10lF4?F,00 

.102447E*00 

3 

• 582T 15E-M 

.5P2R4RF-01 

.5838O1E-01 

4 

• 347f 17E-0 1 

•348p8?F-01 

,3^53?7E-0l 

1.0 

5 

.21092AE-01 

,21lQ  7F-01 

.706014E-01 

6 

• 1 ?9?64E-0 1 

.1301  0F-O1 

.126899E-01 

7 

•795744E-02 

,802?59F-02 

.810657E-02 

8 

.490p96E-02 

•495*1 OF-0? 

.464572E-02 

9 

.302F25E-02 

.306467F-02 

.2989S6E-0? 

10 

.1P6749E-02 

.1P9F99F-0? 

.194834E-0? 

0 

0 • 

0. 

0. 

1 

,?08*95E400 

,20574?F»00 

,?04594E*00 

2 

.11AQ06E400 

.114l41F*00 

.ll4853E*00 

3 

.74476PE-M 

,744(S03F-01 

.7J9735E-01 

k 

.S21n56E-0l 

•5?1*47f-01 

.516625E-01 

2.0 

5 

• 3RU29E-01 

.3P1710F-01 

.378416E-01 

6 

.2P6i22E-0l 

.288S79F-01 

,?83033E-0'l 

7 

.217q76E-nl 

.218S47F-01 

.?18$36E-01 

8 

.l*6f79E-01 

.168786F-01 

,l67427E-i)l 

9 

.12«t66E-M 

.130372F-01 

• 1 351 14E*  01 

•o 

,9aflPlriE-02 

.ion8isF-oi 

.990597E-0? 

0 

0. 

o. 

0 • 

1 

• 209'?03E*00 

• 205 1 26F*00 

,?049Q9E*00 

2 

• 1 16i46E*00 

,115f65F*00 

,ll6038E*00 

3 

,7*5?25E-nl 

•764o40F-01 

.761445E-01 

k 

.5S1727E-01 

.5S1077F-01 

.5464S1E-01 

3,0 

5 

,419i32E-fll 

•419q2?F-01 

.416410E-01 

6 

.330i^3E-nl 

•330?09F-01 

,3264p5e-01 

7 

.2IS7Q62E-01 

.2iS67d4F-01 

.2712SBE-01 

8 

.219705E-O1 

.219179F-01 

.218503E-01 

9 

.1P2424E-01 

.1P236SF-01 

.186176E-01 

10 

•1S2P27E-01 

,1F309?f-01 

.1525S2E-01 

0 

0 • 

0. 

0. 

1 

,209746E*00 

.205ft56F*00 

,?05047E*00 

2 

• 1 16’71E*f)0 

« 1 15a07F*00 

•ll6l24E.OO 

3 

.767750E-P1 

.7iS7737F-01 

.763996E-01 

k 

.5SSQ50E-01 

.5S535PF-01 

.551250E-01 

*.0 

S 

.425761E-P1 

•4?5?35F-01 

.421764E-01 

6 

,338F73E-nl 

.33RS81F-01 

.3J5986E-01 

7 

.278797E-01 

.27731PF-01 

.?8l7*6E-6l 

8 

• 232  01E-M 

.231987F-01 

.231327E-01 

9 

,197f91E-nl 

,197?19F-01 

.200510E-01 

10 

,170rOSE-01 

.16976RF-01 

.168695E-01 
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Table  8b.  Reflected  Particle  Currents,  Bp(t),  Obtained  by 
Three  Methods,  from  Slabs  of  Various  Width*:,  t:  Unit 
Current  Cosine  Distributed  Source;  Isotropic  Scatter  (Cont) 


t 

n 

Reflected  Current,  Bn<t) 

OOSII 

Boltzmann 

Monte  Carlo 

0 

0. 

0. 

0. 

1 

.209-5  j0E*00 

•206?96F  *00 

,245047E*00 

2 

.116?84E*00 

.115811^*00 

.ll6l40E*00 

3 

. 768n50E-0 1 

. 76836 3F-01 

. 76457?E-0 1 

4 

•886f12E-01 

.551S027F-01 

.551794E-01 

5.0 

5 

,426?86E-0l 

.426197F-01 

.422247E-01 

6 

.339065E-M 

.339Q83F-01 

.U7570E-01 

7 

.pao^sE  *1 

,279?67F-01 

.28367SE-01 

8 

.?-*S487r.-nl 

.234877F-01 

.2J3697E-01 

9 

. 20 1 p74E-0 1 

.200809^-01 

.203978E-01 

10 

• 174* 62E-01 

.173808F-01 

.1/3130E-01 

0 

IT. 

0 • 

1 

,209750E*00 

.205l73F*00 

.?05047E»00 

2 

• 1 l 6?86E*00 

. 115700F  + 00 

.ll6l40E*00 

3 

• 768n86E-ft  l 

.767O40F-01 

,76457?E-01 

k 

.SC5888E-01 

.585O03F-01 

,851794E«01 

6.0 

5 

.426417E-01 

•426?48F-0 1 

.4223Q1E-01 

6 

• 340 i 79E-0  1 

.340160F-01 

.3J7772E-01 

7 

• 281 l 31E-01 

.279874F-01 

.284103E-01 

8 

.238Q69E-01 

.235031E-01 

.2J4125E-01 

9 

.ZOl^E-Ol 

.2011 46F-01 

.204572E-01 

10 

.l75p30E-01 

.l74f,51F-01 

.174338E-01 

0 

0* 

0. 

0. 

1 

.209?50E*00 

•205l98F*00 

. ?O5047E*00 

2 

.H6?86E*no 

.115i«,60F»00 

,ll6l40E*00 

3 

,7f,8n90E-0l 

.768008F-01 

.764577E-01 

4 

.556S94E-01 

.555957E-01 

.5517Q4E-01 

7*0 

5 

.426435E-01 

•426284F-01 

.422573E-01 

6 

.340210E-01 

.340199F-01 

.3J7772E-01 

7 

.2811 84E-0 1 

,279f 28F-01 

,?84199E-0l 

8 

.236o50E-0l 

.235109F-01 

.2J4218E-01 

9 

.201851E-01 

• 201 258F-01 

.204602E-01 

10 

.175194E-M 

• 174808F-01 

,1?4492E-01 

0 

0. 

0. 

0. 

1 

• 209750E*00 

• 205660F  *00 

,?05047E»00 

2 

.116:>86E*ft0 

, 1 1561 1F*0C 

.ll6l40E*00 

3 

•768o90E-*1 

.768\98F-01 

,7b457?E-0l 

k 

.5S6896E-01 

.556007F-01 

.5S1794E-01 

8*0 

5 

.426437E-01 

.426306F-01 

.422573E-01 

6 

.340714E-01 

.340212F-01 

.337772E-01 

7 

.281192E-01 

. 279f)39F-0 1 

.284199E-01 

8 

.236063E-01 

.2351 23F-01 

.P34218E-01 

9 

.201871E-01 

•201?77f-01 

.7O4602E-01 

10 

.175?23E-0l 

.174835F-01 

. 1 74492E-01 
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Table  8c.  Transmitted  and  Reflected  Particle  Currents,  Tnit) 
and  Bn(t),  Obtained  by  Two  Methods,  from  Slabs  of  Various 
Widths,  t:  Unit  Isotropically  Distributed  Current  Source; 
Isotropic  Scatter 


t 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  B (t) 
n 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

,1484q5F>00 

•14704OE.00 

0. 

0. 

I 

.11P8p7E*0'-> 

.1 12430E.OO 

.244480F  *00 

,245940E»00 

2 

.7974.2E-01 

.7868S0F.-M 

.113837000 

. 1 141 70E+00 

3 

,5PqSq3E-01 

.530700E-01 

.627864F-01 

.631200E-01 

4 

.339fto5F-01 

. 3439Ff  E-0 1 

.368739E-01 

.366900E-01 

1.0 

s 

,21370900! 

•21680flE-01 

.22P843F-01 

.218250E-01 

6 

.133308E-01 

. 133550E-01 

.13S950F-01 

• 1 34500E-0 1 

7 

.8P7P73E-0P 

.84*S0oE-ftP 

.83S216F-02 

.850000E-02 

8 

,51?0t  t'E-O? 

.551C0nE-f ? 

.51 4498F-02 

.494000E-02 

9 

.31**1 1F-0P 

.333S0OE-O? 

.317J45F-02 

;319000E-02 

10 

.1958/.OOOP 

•201500E-0? 

.195863F-02 

.205500E-02 

0 

• 3753<i3F-0  1 

.378100E-01 

0. 

n • 

1 

.4P4972E-01 

.4l8*5oE-01 

.249848000 

,251190E*00 

2 

,4?q0o3001 

.428850F -0 1 

.123991F.00 

. 124030E+00 

3 

.3949*0001 

.389S50E-M 

.78321 1 E— 0 1 

.762700E-01 

4 

.3440Q6E-0! 

,33895oE-oi 

.519736E-01 

,r 18250E-01 

2.0 

5 

,28fll?2E-0l 

,28985nE-01 

, 374030F-0 1 

.370800E-01 

6 

.235SO0E-01 

.23040OE-01 

.27793?F-0l 

.276950E-01 

7 

• 1930*5E-01 

.19l*0oE-f)l 

.209224F-01 

.210150E-01 

8 

.1SP0q9F-()i 

.149900E-O1 

.159648F-01 

. 159400E-01 

9 

.119075E-01 

.122300E-01 

.12P&02E-01 

• 129050E-0 1 

10 

.9P86-.2F-07 

.96700nE-(l? 

.945162F-02 

.955S50E-02 

0 

.108419001 

. 104*0nE-ol 

0.  . 

n • 

1 

.1490*2E-01 

. 149850E-Q1 

. 249972F+00 

•251440E+00 

2 

.18PPA7E-01 

. 1 7930OE-0 1 

,124872F*00 

.124880E*00 

3 

.200?S9F-01 

.198000E-01 

. 779058F-0 I 

.779250E-01 

4 

,20SS*5F-01 

.20805OE-O1 

.543191F-01 

.541000E-01 

3,0 

5 

.200384F-01 

. l97ionE-ol 

.404527E-01 

.401500E-01 

6 

,1887?3E-01 

,18095nE-nl 

.314J61E-01 

.312650E-01 

7 

.177*(i9E-01 

.1740SOE-01 

.251 J82F-01 

i252750E_0 1 

8 

.isqqp9E-oi 

.1553S0E-01 

.205061E-01 

.203150E-01 

9 

.1419O3E-01 

,139*SOE-01 

.169836E-01 

.174100E-01 

10 

.1P4779F-01 

.121150E-01 

.141736E-01 

.142850E-01 

0 

,319873007 

.310S0OF-0? 

0. 

0 • 

1 

.5 lS9q3F~0  P 

.506000E-1? 

.249997F+00 

• 251470E'»00 

2 

.T171P3F-0P 

.703000E-0? 

• 124956F*00 

. 124930E*00 

3 

.888875F-0P 

.8?lS0rjE-0? 

,780854F-0i 

.781 1 OOE-O 1 

4 

. 1 OPl p7F-0 1 

.102150E-01 

•546J23F-01 

.544500E-01 

4,0 

5 

.110072E-01 

.11195oE-ni 

.409290F-01 

.405650E-01 

6 

. 1 1 49»3E“0 1 

,11175nE-ni 

.320966E-01 

.320100E-01 

7 

.117496E-01 

.U30SOE-01 

.259979E-01 

.26I250E-01 

8 

.11S7P0E-01 

.116PSOE-01 

.215862E-01 

.213800E-01 

9 

.11 1 7f§E~01 

.108400E-01 

.182151E-01 

• 1 85750E-0 1 

10 

.108288E-01 

. 10S300E-01 

.155991E-01 

.156400E-01 
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Figure  8c.  Transmitted  and  Reflected  Particle'  Currents,  Tn(t) 
and  Bjjtt),  Obtained  by  Two  Methods,  from  Slabs  cf  Various 
Widths,  t:  Unit  Isotropically  Distributed  Current  Source; 
Isotropic  Scatter  (Cont) 


+ 

n 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  B (t) 
n 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

r 

.99f,4*9E-07 

•870000E-03 

0. 

o. 

i 

.1787«,5E-0* 

• 1 72000E-0? 

.250000^*00 

#251470E*00 

2 

.27?6i9E-0? 

.2B7000E-0? 

.124964^*00 

• 1 24940£*00 

3 

, 3697 i 2E-9? 

.353S00E-0? 

.781059F-01 

.781450E-0I 

4 

.46?7*7E-0» 

.440000E-0? 

•546?23E-01 

.544950E-01 

5,0 

5 

.5477'<0E-07 

•543S00E-0? 

•409971E-01 

.406000E-01 

6 

.6100'*lr>0? 

.621000E-0? 

•322015E-01 

.321400E-01 

7 

,6661t4F-0? 

•660500E-02 

.261508E-01 

.262750E-01 

8 

,70?1«^E-05 

• 71600nE-(l? 

.217  f 30E-01 

.215700E-01 

9 

.7?7269E-0-> 

•692000E-0? 

.184825F-01 

• 188550E-01 

10 

•731 1t8E~05 

. 739001E-0? 

.15QJ20E-01 

.160000E-01 

0 

.3182^8E-07 

t 345000E-0.7 

0. 

0. 

1 

.617781E-0'’ 

.505000E-03 

■ 250000F  *00 

• 251470E+00 

2 

.101788F-07 

• 1 02500E-0? 

.124965F+00 

• 124940E+00 

3 

•14«2c6E-05 

•149000E-0? 

.781 083E-0 i 

.781450E-O1 

4 

.19871 3E-05 

•195SOOE-02 

.546?74E-01 

.544950E-01 

6,0 

5 

.249334E-05 

.234500E-0? 

.410064F-01 

.406100E-01 

6 

.297844E-07 

.301000E-02 

.322I71E-01 

.321600E-01 

7 

.34SH5E-0’ 

•338S00E-0? 

.261 158F-01 

•263000E-01 

8 

.384476E-07 

•390500E-02 

.210O96E-O1 

. 216000E-01 

9 

.417497E-07 

.399S00E-02 

.185333E-01 

, 189000E-01 

10 

.4417=;2E-0’ 

•438500E-0? 

.159998F-01 

.16o9o6e-o1 

0 

• 10751 OE-03 

•100000E-07 

0. 

0. 

1 

.214SO0E-07 

• 15000<1E-03 

.250000^*00 

.251470E+00 

2 

.3758o4e-03 

,36500rE-03 

. 124965^*00 

,124940E*00 

3 

•580874E-03 

•515000E-03 

.781086E-0I 

.781450E-01 

4 

,8?41q8E-07 

,87500oE-03 

,546?80F-01 

.544950E-01 

7,0 

5 

•109269E-0? 

•llOOOoE-O? 

.410076E-01 

.406200E-01 

6 

•13T670E-0? 

•132000E-02 

.32P194F-01 

.321600E-01 

7 

,16«265E-07 

. 168000E-0? 

.261 f 97F-01 

.263050E-01 

8 

.1964AOE-07 

. 197S-.:oE-n? 

.218156F-01 

. 216050E-01 

9 

•227185E-0’ 

.?14nooE-o? 

.185422E-01 

• 189100E-01 

10 

.2477C7E-0? 

,243oOnE-0? 

.160123^-01 

• 161 000E-01 

0 

.341376E-04 

•300000E-04 

0. 

^ • 

1 

.747801E-04 

.500000E-94 

.250000F*00 

• 251470E*0!' 

2 

,1370qlE-OT 

• U5000E-03 

.124965E+00 

• 124940E*00 

3 

,2540^0E-0T 

•19S000E-07 

.781 086E-01 

.781450E-01 

4 

.3377f0E-07 

.385000E-03 

.546?81E-01 

.544950E-01 

8,0 

5 

.4638n2E-07 

•475008E-03 

.410078F-01 

v406200E-01 

6 

.6115^1E-07 

.49500OE-03 

.3271O7E-01 

.121600E-01 

7 

,784477E-<n 

.765000E-03 

.261803F-01 

.263050E-01 

8 

,954792E-0-» 

.930000E-03 

.21R165F-01 

.216050E-01 

9 

.11P082E-O? 

,980000E-03 

.185436E-01 

;i89loOE-01 

10 

.13020*E-0? 

•123500E-02 

.160U5E-01 

• 161000E-01 
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APPLICATION  OF  THE  OOSII  METHOD  TO  NON  ISOTROPIC  SCATTER 


7.1  Neutron  Slowing-Down  in  Hydrogen  - An  Example  of  Highly 
Anisotropic  Scattering 

Thus  far  the  discussion  of  particle  transport  has  been  confined  to  interactions 
where  the  scattering  is  isotropic  in  the  laboratory  system.  As  has  been  stated 
previously,  this  case  was  adopted  because  of  its  inherent  simplicity  and  the 
accessibility  of  at  least  two  other  independent  calculational  methods  for  verifica- 
tion of  the  results.  However,  many  important  processes  can  be  described  ade- 
quately only  by  anisotropic  scattering.  Such  is  the  case  for  neutron  slowing-down 
in  hydrogen  where  the  scat  ering  is  isotropic  in  the  center  of  mass  coordinate 
system.  In  the  laboratory  system  Jhis  transit  es  into  a scattering ^probability  dan 
sity  which  is  proportional  to  the  cosine  of  the  deflection  angle.  If  R^  and  Rg  are 
defined  as  the  pre-  and  post-collision  directions  of  motion,  respectively,  of  the 
scattered  particle  in  the  laboratory  system  (Figure  22)  where 


e sin  9 , cos  0 + e sin  9 . sin  0.  + e 

x 1 1 y 1 1 z 

ez  sin  6 2 cos  02  + e^  sin  9 2 sin  02  + ez 


cos  9 j , 

(105a) 

cos  9 2 , 

(105b) 

and  if  0)  is  defined  as  the  scattering  deflection  angle  in  the  laboratory  system,  then 


COS  t Of 


(106) 


Since  the  scattering  occurs  between  two  particles  of  equal  (or  very  nearly  so)  mass 
there  can  be  no  single  collision  backscatter  in  the  laboratory  reference  frame. 
Therefore 


R, 


r2> 


(107) 


or 


sin  9 ^ sin  9 2 cos  (0j  - 0g)  + cos  9 1 cos  9 2 > 0 . 


(108) 


Then  for  a given  pair  of  values  9 y 9 r the  following  constraint  holds  for  the  azi 
muthal  deflection: 


cos  (01  - 02)  > 


cos  9 i cos  9 2 
sin  9 ^ sin  9 2 ’ 


(109) 
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with  the  maximum  allowed  defection,  A0  5 » occurring  with  the 

max  i J max 

equality. 


z 


Figure  22.  Pre-  and  Post -Collision  Particle 
Orientations 


The  scattering  probability  density  in  terms  of  and  is 


tl. 


«2 


(<t>1  - ^2)  s 6r 


0 , (<t>1-  02)  > 


and,  as  in  the  case  of  isotropic  scattering,  azimuthal  invariance  implies 
2ir 

f (Mr  M2)  = / d02 


I [ VTl-Mi2)(i-M2>  s‘n  ^max  + ^1^2  tax  1 


(110) 


(111) 





where  since  the  assignment  of  an  initial  azimuthal  direction  is  arbitrary,  the  value 
of  0^  has  been  chosen  to  be  zero.  The  scattering  matrix,  f(Mj.  M2^  was  evaluated 
at  the  Gaussian  discrete  ordinate  points  corresponding  to  six  angles  per  quadrant. 
The  elements  of  f are  listed  in  Tables  9a  and  9b.  Table  9a  contains  the  submatrix 
for  the  case  when  both  angles  are  in  the  same  quadrant,  and  Table  9b  shows  the 
submatrix  when  /i.  and  fl . correspond  to  angles  in  different  quadrants.  The  scat- 
tering matrix  is  symmetric  about  both  diagonals.  This  matrix  was  then  substituted 
into  the  expressions  of  Eqs.  (63)  and  (64),  and  the  OOSII  computer  program  was 
run  to  provide  computations  of  the  transmitted  and  reflected  currents. 

The  choice  of  six  discrete  ordinates  per  quadrant  was  made  for  all  orders  of 
scattering  up  to  10  because  it  was  found  that  a lesser  number  was  not  adequate  to 
provide  an  accurate  description  of  the  forward  peaked  nature  of  the  scattering  angu- 
lar distribution.  The  adoption  of  this  number  of  ordinates  was  accomplished  with 
virtually  no  further  sacrifice  in  computational  efficiency  over  that  attained  for  the 
isotropic  scatter  case.  This  was  accomplished  with  a coarsening  of  the  spatial 
integration  step  by  a factor  of  four,  a modification  which  produced  only  third  or 
fourth  decimal  place  changes  in  the  answers.  Also  a constant  mean-free-path  was 

assumed,  as  is  actually  the  case  for  neutron  scattering  in  hydrogen  at  energies 

15 

ranging  from  1 keV  down  to  thermal. 

Curves  of  T (t)  and  B (t)  are  plotted  vs  t for  both  the  cosine  and  isotropic 
n n 

source  configurations  in  Figures  23,  24,  25,  and  26.  As  before,  twelve  curves 
representing  values  of  n ranging  from  0 to  10  plus  the  total  current,  are  presented 
in  each  graph.  A more  detailed  presentation  of  the  numerical  results  is  given  in 
Table  10. 


15.  Lamarsh,  J.  R.  (1967)  Nuclear  Reactor  Theory,  Addison  Wesley,  Reading,  Mass. 
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Table  9a.  Upper-Left  Submatrix.  f(/U|.  juA  for  Both  Angles  in 
Same  Quadrant;  Neutron  Scattering  in  HydVogen 


\ i 

j \ 

1 

2 

3 

4 

5 

6 

i 

1. 9629 

1.  7749 

1.  5114 

1.  1530 

.72210 

. 27005 

2 

1.  7749 

1.  6349 

1. 3922 

1. 0620 

. 68095 

. 39279 

3 

1.  5114 

1. 3922 

1.  1855 

. 91807 

. 70488 

. 50417 

4 

1. 1530 

1.  0620 

. 91807 

. 82125 

.71504 

. 58689 

5 

.72230 

.68095 

.70488 

.71504 

.69254 

. 63412 

6 

. 27005 

. 39279 

. 50417 

. 58689 

. 63412 

. 64240 

Table  9b.  Lower-Left  Submatrix.  f(/ij,  ju .),  for  Angles  in 
Different  Quadrants;  Neutron  Scattering  iff  Hydrogen 


\i 

j\ 

1 

2 

3 

4 

5 

6 

6 

. 024198 

. 16634 

. 31133 

.43979 

. 54199 

.61103 

5 

0 

. 015826 

. 13849 

. 28297 

. 42194 

. 54199 

4 

0 

0 

. 013711 

. 13136 

. 28297 

.43979 

3 

0 

0 

0 

. 013711 

. 13849 

. 31133 

2 

0 

0 

0 

0 

. 015826 

. 16634 

1 

0 

0 

0 

0 

0 

. 024198 
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SLAB  THICKNESS! MFP ) 

Figure  25.  Transmitted  Current,  Tn(t),  vs  Slab  Thickness,  t,  for  nth  Order 
Neutron  Scattering  in  Hj-drogen  (Osns  10);  Isotropic  Current  Source 
Configuration 


Table  10a.  Transmitted  and  Reflected  Particle  Currents,  Tn(t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Hydrogen:  Unit  Current  Cosine  Distributed  Source 


t 

n 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  Bn(t) 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

,2193o4E*00 

.217556E+00 

0. 

o. 

1 

.2?F0i 7E +0* 

.226632E*00 

.626B10E-01 

.585498E-01 

2 

, 145794000 

« 1431 0?E*00 

.548/62E-01 

.548400E-01 

3 

.7976O0E-01 

.79777AE-01 

.428B61E-01 

.437332E-01 

4 

. 41*402001 

.426760E-01 

.2983808-01 

.301978E-01 

1.0 

5 

,2?79a0E-01 

.226424E-01 

.193*4§F-01 

, 196888E-0 1 

6 

. 1?44/,2e-0  l 

,11571qE-01 

. 119^83P-{,1 

• 127054E-01 

7 

.71?8ilE-0? 

,7CI?30E-02 

.717298F-02 

.717474E-02 

8 

, MS302E-C? 

o47'"‘'1a,E-o? 

.42?72lE-02 

,4a4738E-02 

9 

. 24381 5E-0? 

.246576E-02 

.247488F-02 

i246S62E-02 

10 

• 1433a5E-0  7 

,12979iE-0? 

.144671E-02 

t 13291 IE-02 

0 

,60?6(S8E-01 

.603430E-01 

0. 

0, 

1 

.1082P9F+00 

,l07868E,OO 

.630936E-01 

.590488E-01 

2 

. 1 1 68p3F*C0 

.115980E+00 

.580285E-01 

;57§918E-01 

3 

,991 8o9E~01 

•100S39E+00 

.507866E-01 

.518410E-01 

4 

• 741 9<»2E-0 1 

•746784E-01 

.42944BE-01 

.434990E-01 

2,0 

5 

,5227  78E-0 1 

.516887E-01 

.352708F-01 

.355512E-01 

6 

.361547E-01 

.3453UE-01 

.281497E-01 

.294068E-01 

7 

,281 2o5E-0 1 

. 24466 ?E-0l 

.218870E-01 

•213594E-01 

8 

.1771.6E-01 

.1859BPE-01 

.166535F-01 

. 169444E-0 1 

9 

,1267p5F-01 

, 13176]E-0l 

.124662E-01 

.120943E-01 

10 

.9-17394E-0’ 

„937S3?E-02 

.922/63E-02 

.894896E-02 

0 

• 17861 3E-01 

.184908E-01 

IT . 

0, 

1 

.4380T8E-01 

,44019?E-01 

.631021E-01 

.590576E-01 

2 

.6360?1F-01 

o63236nE-0l 

•581955E-01 

.581 540E-0 1 

3 

.709486E-01 

.698018E-01 

.515609E-01 

•52608§E-01 

4 

.673184E-01 

•671466E-01 

,449280E-0b 

.453542E-01 

3,0 

5 

.579789E-01 

.571 100E-01 

.3B888IE-01 

.393660E-01 

6 

,^71405E-01 

,467  oliE-Ol 

.334J74E-01 

.348814E-01 

7 

.372140E-01 

• 3627Sa,E-01 

.285101E-01 

.281626-01 

8 

,2906*7e-01 

.288636E-01 

,240f22E-01 

.243764E-  •! 

9 

.2271&7E-01 

.229126E-01 

.201 198E-01 

.198894E-01 

10 

,1785°2E-01 

, 1 77856E-0 1 

•166571E-01 

.164842E-01 

0 

.582272E-0? 

,533810E-f 2 

0. 

0, 

1 

.1672A7E-01 

,16797 lE-0 1 

.631023E-01 

.590576E-01 

2 

,298f t3E-0 1 

.3009UE-01 

.582060E-01 

.58I540E-01 

3 

.404794E-01 

.406784E-01 

.516329E-01 

.526870E-01 

4 

,4607i8E-01 

.473636E-01 

.45] /98F-01 

.455788E-01 

4.  0 

5 

.466209E-01 

»465o4nE-01 

.394939E-01 

.399264E-01 

6 

.438659E-01 

, 429778E-0 1 

.345/81F-01 

.358244E-01 

7 

,3882a4E-01 

•379286E-01 

.303145E-01 

.297556E-01 

8 

,331675E-oT 

•331824E-01 

.26S779E-01 

.269204E-01 

9 

.279781E-01 

.275767E-01 

.232682E-01 

.228112E-01 

10 

,2342^7E-01 

.233496E-61 

.203156E-01 

•201930E-01 

87 


Table  10a.  Transmitted  and  Reflected  Particle  Currents,  T (t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Hydrogen:  Unit  Current  Cosine  Distributed  Source  (Cont) 


t 

n 

Transmuted  Current,  Tn(t) 

Reflected  Current,  Bn(t) 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

.17SS  vtlF-O? 

.162074E-0? 

0. 

0. 

1 

.6220- 7E-0? 

.607R87E-0? 

.631024F-01 

.590576E-01 

2 

.1300i4E-01 

.132^1?E-(11 

.582068E-01 

.58I540E-01 

3 

.205195001 

• 20 1 8fl?E-0 1 

.516398F-01 

.526870E-01 

4 

,2697n7E-0i 

•27778?E-0l 

.452102F-01 

.456UOOC1 

5,0 

5 

.3ll7->3f>0i 

.313024E-61 

.39F838F-01 

.400422E-01 

6 

.338510E-O! 

. 32704PE-D 1 

.347832F-01 

.360120E-01 

7 

,3?37*4E-01 

.329R34E-01 

.307027F-01 

.301876E-01 

8 

.3043f6F-01 

. 30S47?E-01 

.272167F-01 

.275920E-01 

9 

.2770f 2E-01 

.27699RE-01 

.242099E-01 

•239690E-01 

10 

.247077F-0! 

,23749?E-'ll 

.21S865E-01 

.214976E-01 

A 

.56920BF-07 

0. 

0» 

1 

.27R144E-02 

.225614E  -0? 

.631024E-01 

.590576E-01 

2 

.5408R8E-09 

.52l48?E-02 

.582068F-01 

.58I540E-01 

3 

.9660R9E-0’ 

.10305RE-01 

.51F405F-01 

.526870E-01 

4 

.143093E-01 

.14199RE-91 

.452138F-01 

.456120E-01 

6,0 

5 

.18S097E-01 

.18390RE-01 

.39F964E-01 

.400484E-01 

6 

.216416E-01 

.22321'»E-(11 

.348165E-01 

.360744E-01 

7 

.2345^9E-01 

.242837E-01 

.307/58F-01 

.302768E-01 

8 

.240049F.-01 

.236130E-01 

.273548E-01 

•278372E-01 

9 

,2353«2E-01 

.236080E-01 

.244422E-01 

.242754E-01 

10 

.2?77«,2E-0T 

.223010E-01 

.219923E-01 

.218644E-01 

0 

. 18731 3E-03 

• l5623qE-03 

0. 

0. 

1 

.8303c;2E“03 

*77531 oE-03 

.63JU24E-01 

.590576E-01 

2 

,2l84f0E-0? 

.21886RE-02 

.582068E-01 

.58I540E-01 

3 

.43?8/'4e-0? 

.406104E-02 

.516906E-01 

.5268.0E-01 

4 

.708873E-09 

.76502RE-02 

.452143F-01 

.456120E-01 

7.0 

5 

.101099E-01 

.10551SE-01 

.395981E-01 

.400484E-01 

6 

.129508E-01 

.133981E-01 

.34R217E-01 

.360744E-01 

7 

.1528R3F-01 

• 15438*E-01 

.307884E-01 

.302768E-01 

8 

,169?o7E-01 

• 17278?E-0l 

.273816E-01 

.2?9i52E-01 

9 

.17R083E-01 

.178819E-01 

.244927E-01 

.243218E-01 

10 

.180282E-01 

.179335E-01 

.220285E-01 

.21 9468E-01 

0 

.623616F-04 

.390856E-04 

0. 

ft  • 

1 

.300771E-03 

.30642RE-03 

.631024F-01 

.590576E-01 

2 

.864407E-03 

,97l47^E-ft3 

.582068E-01 

.581540E-01 

3 

.1871/.9E-07 

.15390SE-0? 

.516906E-01 

.526B70E-01 

4 

,3345«6E-0? 

.335922E-02 

.452143E-01 

.456120E-01 

8,0 

5 

,51R9i0E-0? 

.561760E-02 

.39F984E-01 

.400484E-01 

6 

,7214ft?E-0? 

.73508RE-02 

.34R224F-01 

.360744E-01 

7 

.919776E-0’ 

.95500RE-0? 

.307905E-01 

.302768E-01 

8 

,1093olF-01 

• 1 1475qE-0l 

.273865E-01 

.279152E-01 

9 

» 123036E-01 

• 120364E-01 

.245027E-01 

.243218E-01 

10 

,13?33lE-0t 

.134817E-01 

.220*73E-01 

.219468E-01 

88 


Table  10b.  Transmitted  and  Reflected  Particle  Currents,  Tn(t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Hydrogen:  Unit  Isotropically  Distributed  Current  Source 


t 

n 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  B (t) 
n 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

. 1484q5E+00 

• 14748rtE,00 

0. 

0* 

1 

• 1842'>OE  + 0O 

•18833?E+00 

.123114F*00 

• 125192E  + 00 

2 

.139S=;8E*00 

.1371  3«E  ♦ f*0 

.74?b54F-01 

.739808E-01 

3 

,83???7E-01 

.830200E-01 

.496/32E-01 

.509H00E-01 

4 

.45R1A4E-0T 

,46890?E-01 

.329962E-01 

.334602E-01 

1,0 

5 

.2S00->7E-0? 

.258800E-01 

.211342F-01 

.213600E-01 

6 

.13O3S1E-01 

. 1 3390SE-0 1 

.130b23E-0l 

.135/05E-01 

7 

.79S2q3E-0? 

•806000E-0? 

.784963F-02 

.B13000E-02 

8 

.461382E-0? 

.51800?E-02 

,464b92E-02 

.489002E-02 

9 

.2649A2E-0? 

•27000qE-0? 

.27?812F-02 

i273008E-02 

10 

,lc;n4<,9E-0.> 

.146000E-02 

.159731E-02 

.140000E-02 

0 

.37S343F-01 

• 374  30->E-0 1 

0. 

0» 

1 

.801216E-01 

.794800E-01 

.123b35F*00 

;i2b710E+00 

2 

.9646Q2E-01 

.952S0SE-01 

.769b43F-0i 

.766805E-01 

3 

,8830«9E-01 

.892500E-01 

.56S247F-01 

.578800E-01 

4 

.696216E-01 

.693S07E-01 

.44U37E-01 

.446602E-01 

2,0 

5 

.507545E-01 

•506?0«E-01 

.34P478F-01 

•352208E-01 

6 

,3S77q9E-0T 

.347900E-01 

.274974E-01 

.282900E-01 

7 

.2S0670E-01 

.250107E-01 

.212995E-01 

•214202E-01 

8 

.174847E-0* 

.186800E-01 

,16?267E-01 

.164000E-01 

9 

.1282S6E-01 

,13160<;E-01 

.121836E-01 

;i2l8oSE-Pl 

10 

.9ll0fllE-0^ 

.947000E-02 

.904  742E-02 

,875000E“02 

0 

,10<S4i9E-01 

•109907E-01 

0. 

0. 

1 

.3043O4E-01 

.30530*E-01 

,123b43F*00 

• lt5728E*00 

2 

.4848O8E-0! 

.480400E-01 

• 770  J92F-0I 

.768000E-01 

3 

.S80842E-01 

,572*0?E-01 

.'570913F-01 

,b84302E-01 

4 

.5805P6E-01 

.578300E-01 

.45E944E-01 

.460300E-01 

3,0 

5 

.5190O8E-01 

.512I0SE-01 

.377J13E-01 

.380905E-01 

6 

,4333n0E-0l 

.433700E-01 

. 31891 0E-01 

.32S300E-01 

7 

.347952E-01 

.34370?E-01 

.26708&F-01 

.268802E-01 

8 

.2743p2E-01 

.27330«E-01 

•224403F-01 

.224108E-01 

9 

.21S2O4E-01 

.214500E-01 

.187345E-01 

•188000E-01 

10 

.169340E-01 

• 16920?E-01 

.15S233E-01 

.152S02E-01 

0 

# 3l98?3E-05 

.308000E-02 

0. 

0* 

1 

• 1 1 lTf  7E-01 

,li210nE-01 

,l23b43F*00 

•125725E*00 

2 

.217941E-01 

.218400E-01 

.770»64E-01 

• 768000E-0 1 

3 

,3147?8E-01 

.315?0?E-0I 

.571400E-01 

.S84902E-01 

4 

.37S846E-01 

• 382S08E-01 

.457691E-01 

.461808E-01 

SO 

5 

,3948=;6E-01 

.391500E-01 

.381654E-01 

.384900E-01 

6 

,3797i5E-0l 

.377602E-01 

.325353E-01 

• 332 J02E-01 

7 

.343949E-01 

.337800E-01 

.280«^3F.-01 

•281SO0E-O1 

8 

,2998n4E-0I 

• 30080ciE-01 

.2440t7F-01 

.243405E-01 

9 

.25S409E-01 

.2S5100E-01 

.212S91E-01 

.211600E-01 

10 

.21S070E-01 

.217002E-01 

.18F179E-01 

.182b02E-01 
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Table  10b.  Transmitted  and  Reflected  Particle  Currents,  Tn(t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  From  the  Scatter  of  Neutrons  by 
Hydrogen:  Unit  Isotropically  Distributed  Current  Source  (Cont) 


t 

n 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  B (t) 
n 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

,99*4*9E-03 

.92000RE-03 

0. 

0 • 

1 

.404090F-0? 

• 395000E-02 

. 123543f*00 

. 127720E*00 

2 

.9173t2F-0'-> 

.93?f)0?E-f>2 

.770869E-0I 

• 768002E-0 1 

3 

• 15361 3E-0 1 

•15050nE-01 

.571445F-01 

.584960E-01 

4 

,2113*4E-01 

•217?0bE-01 

.457892F-01 

.46200SE-01 

5.0 

5 

.2534, 2E-01 

.253100E-01 

• 38?270E“0l 

•38SS60E-01 

6 

.2749B5F-01 

•27240?E-0! 

.326802E-01 

.334002E-01 

7 

,2773*5F-01 

.284108E-01 

.283670F-01 

.284908E-01 

8 

.2654Q0E-01 

.263A00E-01 

,24«804F-01 

•248300E-01 

q 

,2449<,6F-01 

.245S0PE-01 

•219803E-01 

•220302E-0 1 

10 

.2205*4F-01 

.214900E-01 

•lq^iiiE-oi 

. 193100E-01 

0 

.3182c8e_oi 

•330o0b£-O3 

0 • 

1 

.14SI47E-0? 

. 146000E-0? 

. 123543E  *00 

il25720E*00 

2 

,3719fl9E-0? 

.36100PE-02 

.770869E-0I 

.768002E-01 

3 

.70?6o2F-0^> 

.745no«E-n? 

•571449E-01 

.584908E-01 

<•» 

.108677E-01 

.107800E-01 

.457915E-01 

.462000E-01 

6,0 

5 

. l4‘i644E“01 

. 142*0pE-01 

.382J53F-01 

.385?02E-01 

6 

.175340F-01 

.177500E-01 

.327O30E-01 

. 334400E-01 

7 

.194698E-01 

.202209E-01 

.284I84E-01 

;285b05£-01 

8 

.20H75E-01 

•199000E-01 

.249802E-01 

.250000E-01 

9 

.20?3*3E-01 

.20250PE-01 

.221522F-01 

.222202E-01 

10 

.194711E-01 

•193408E-01 

.1973I0F-01 

.195808E-01 

0 

. l0',5l  OE-03 

.900000E-04 

0. 

0» 

1 

.519579E-0-« 

,490n0?E-03 

.123543F*00 

.125722E»00 

2 

.1472t1E-07 

,:49000E-0? 

.770869F-0J 

.768000E-01 

3 

.307644E-0? 

.298005E-0? 

•571450E-01 

,584§05E-01 

4 

,5?54p3E-07 

.555000E-0? 

.457918E-01 

.462O0OE-O1 

7,0 

5 

.774895E-07 

.79600?E-02 

.38P364E-01 

;3857J2E-01 

6 

. 10?2, IE-01 

.105508E-01 

.327064E-01 

;334408£-01 

7 

.123595E-01 

•122700E-01 

.284271E-01 

.285500E-01 

8 

1395«0E-01 

.144* 0?E-01 

.249991E-01 

.250502E-01 

9 

.149390E-01 

.151200E-01 

.221885E-01 

.222500E-01 

10 

.1573-,  3E-0! 

• 150  70FE-0 1 

.198443F-01 

• 196505E-01 

6 

.341376E-04 

•200000E-04 

0. 

0, 

1 

.18S693E-03 

•20000?E-03 

.12.|b43r*00 

• 125722E*00 

2 

,5730f>3E-03 

.640008E-03 

.770869E-01 

.768008E-01 

3 

.130597E-0? 

. 1 1600QE-0? 

.571450E-01 

.584900E-01 

* 

,24?9?3E-0’ 

.247007E-0? 

.45791&F-01 

i462002E-01 

8,0 

5 

.399SP4E-0? 

.40800OE-0? 

.38PJ65F-01 

;385?60E-01 

6 

,5589?4E-0’ 

.563005E-02 

.327069E-01 

;334405E-01 

7 

.727H4E-0? 

.735000E-02 

.284284E-01 

.285500E-01 

8 

.882585E-0? 

.92400PE-02 

.250024E-01 

.250502E-01 

9 

• lOlO’OE-Ol 

.987008E-02 

.221956E-01 

•222508E-01 

LJ“ 1 

.110293E-01 

•112300E-01 

.19BP79E-01 

.196500E-01 

7.2  Neutron  Slowing-Down  in  Carbon  — An  Example  of  Mildly 
Anisotropic  Scattering 


,12 


If  the  assumption  is  made  that  the  scattering  of  neutrons  from  the  C nucleus 
is  isotropic15  in  the  center  of  mass  coordinate  system,  the  angular  scattering 
probability  density  in  this  system  is 


f(cos  o>  ) 
c 


1 

7 


(112) 


where  o>  is  the  deflection  angle  in  the  center  of  mass  system.  The  transformation 
c 

of  this  function  to  the  laboratory  system  is  given  by 


f(cOSU),)  = f(c03  Cl)  ) 


d(cOS  Cl)  ) 


c d(cos  oj^)  * 


(113) 


where  W f is  the  corresponding  deflection  angle  expressed  in  laboratory  coordinates. 


and  where  the  deflection  angles  are  related  by 
-*  -»  1 + A cos  cd 


COS  Cd  £ = • n2  = 


5T7I  * 

(1+2A  cosc^  + AV' 


(114) 


Here  the  directions  ^ and  are  as  defined  in  Eqs.  (105),  and  A is  the  mass  of  the 
target  nucleus.  After  some  algebraic  manipulation,  the  resulting  expression  for 
f in  the  laboratory  frame  is 


f(cosoV  = m 


2 

COS  Cd 


\A  - 1+  cos “w 


■^A^  - 1+  COS^Cd^  + 2 COS  Ci)^ 


(115) 


5 ■ 


As  was  done  for  the  hydrogen  case , an  expression  for  f independent  of  azimuth  is 
required  for  implementation  of  the  OOSII  algorithm.  That  is 
2tt 

f(u  , H ) = J d(j>2  f^-*^)  . (116) 

1 o 

When  the  expression  for  cosed  given  in  Eq.  (114)  is  substituted  into  Eq.  (115),  it 
becomes  apparent  that  an  exact  analytic  integration  of  Eq.  (116)  is  not  possible. 
However,  a binomial  expansion  of  the  square-root  terms  in  Eq.  (115)  renders  the 
integration  feasible.  Letting 

2 

i — ^ COS  Cl)  . 


leads  to 


2 

COS  CO  , 


A - 1 + cos  co , 


2 

COS  CO  , 


r,  q 3 2 5 3 1 

L1  2 + 8 q "TBq  + •••_! 


for  the  first  term,  and 


I 2 2 

■yA  - 1 + cos  co 


« Ti  + q - q2  + q3  5 q4  + 1 

“ L1  + 2 ir+  tb-  tm  + •••  J 


(118) 


(119) 


for  the  second  term. 

Substitution  of  the  above  expressions  into  the  integral  of  Eq.  (116)  yields  the  follow- 
ing result: 


f(/ir  Jig)  = 


a 
2 A 


2^1^2  3 ^1^2*  3 ^d-MiXi-Jig) 

1 + ^ + tv n + v n 


a a 

5 ^1^2*  15  *u1^2*  15  [ll-/ilHl"ll2H 

T T M 


• • • 


(120) 


This  expression  was  coded  for  use  in  the  OOSII  computer  program.  The  scattering 

matrix  elements  are  given  in  Table  11. 

In  the  computations  the  spatial  integration  step  wss  taken  u ^e  the  sa n.c 

that  for  the  hydrogen  calculations,  and  six  discrete  ordinates  were  enviryed  m the 

angular  integrations.  The  assumption  of  a constant  me.in-11  ee-pa*h  was  again 

1 2 

made.  This  is  valid  for  neutrons  scattering  in  C frr,  \ approximate iy  10  k«V 
down  to  the  thermal  range.  Curves  of  T (t)  and  Bt  (t)  arc*  blotted  vs  t for  both  the 
cosine  and  isotropic  sources  in  Figures  27,  2b.  29, , tend  '<0.  and  as  b re,  the 
values  of  n were  chosen  to  range  from  0 lo  10.  A mo  re  extensive  p.  entation  o' 
the  numerical  results  is  given  in  TnlAe  12  along  w.v  resulis  of  a Monte  Carlo 
calculation. 
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Table  11a.  Upper-Left  Submatrix,  f(4i>  4j)  *or  B0^  Angles 
in  Same  Quadrant;  Neutron  Scattering  in  Carbon 


■ 1 

\i 
3 \ 

1 

2 

3 

4 

5 

6 

i 

. 58331 

. 57627 

. 56419 

. 54805 

. 52909 

. 50867 

2 

. 57627 

. 56988 

. 55893 

. 54425 

. 52694 

. 50823 

3 

. 56419 

. 55893 

. 54987 

. 53670 

. 52318 

. 50738 

4 

. 54805 

. 54425 

. 53670 

. 52872 

. 51797 

. 50610 

5 

. 52909 

. 52694 

. 52318 

.51797 

. 51157 

. 50433 

1 6 

. 50867 

.50823 

. 50738 

. 50610 

. 50433 

. 50209 

Table  lib.  Lower-Left  Submatrix,  f(4u  4j>«  for  Angles  in 
Different  Quadrants;  Neutron  Scattering  in  Carbon 


— — ] 

\ i 
3 \ 

! 2 3 4 5 6 

6 

.48820  .48937  .49133  .49385  .49666  .49948 

5 

.46897  .47156  .47602  .48200  .48904  .49666 

4 

.45206  .45583  .46238  .47128  .48200  .49385 

3 

.43836  .44303  .45117  .46238  .47602  .49133 

2 

.42850  .43377  .44303  .45583  .47156  .48937 

1 

42288  .42850  .43836  .45206  .46897  .48820 

TRANSMITTED  CURRENT 


t Mll|/  I I I I IMI 


TRRNSKI TTED  CURRENT 


mn|  i 14  I IHIK  r mw  I t Mlw|  i i i 1 1 iii|  i i i 1 1 hi 


Table  12a.  Transmitted  and  Reflected  Particle  Currents,  T_(t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Carbon:  Unit  Current  Cosine  Distributed  Source 


t* 

Transmitted  Current,  T^(t) 

Reflected  Current,  Bn(t) 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

.230876E*Ofl 

•23098rE*00 

0. 

0* 

1 

.12fll70E*0n 

• 127981 E*00 

• 1 8R51 OF  + 00 

,182702E*00 

2 

.825249E-1? 

•816346E-91 

.991670E-01 

.100127E*00 

3 

.SJ7SO2E-01 

• 51 777oE— 01 

.564029F-01 

•555538E-01 

4 

.31R154E-01 

• 32234RE-0 1 

.33U91E-01 

.347234E-01 

1,0 

5 

.193S7BE-01 

.20046PE-01 

.197J16E-01 

.204006E-01 

6 

.117276E-01 

.121R66E-01 

. 1 1RJ28F-01 

.117280E-01 

7 

,7084<,8E-07 

.71243RE-0? 

.711807E-02 

.719986E-02 

8 

,4?78?5E-0? 

.45SPUE-0? 

.42R878E-02 

.450690E-02 

9 

.2S8316E-07 

. PR8R72E-0? 

.25R645E-02 

i253J28E-02 

10 

.1SS9R5E-0? 

.139027E-0? 

.156076F-02 

• 1 70667E-02 

0 

,6618i8E-01 

.66903PE-01 

0 . “ 

0* 

1 

.590232E-01 

•593600E-01 

.19S«28f*00 

. 190049E*00 

2 

.54S295E-01 

• 5478  lf,E-01 

. 1 12920F*0$ 

• 1 1 3492E*00 

3 

.471304E-01 

.46987  OE-0 1 

.737885E-01 

.724424E-01 

4 

,39?8?8E-01 

.385448E-01 

.si^aosF-oi 

.525616E-01 

2.0 

5 

.3168R5E-01 

.32165RE-01 

.374840E-01 

.384174E-01 

6 

.2S10P3E-01 

.251764E-0) 

.27R605E-01 

.277228E-01 

7 

. 1967i2E-01 

• 199S6qE-01 

.209863F-01 

.215922E-01 

8 

.1S3078E-01 

,1547l8E-nl 

.15P358E-01 

. lt’8127E-01 

9 

,ll«Sq5E-0i 

.123061E-01 

.121602E-01 

.123050L-01 

10 

.9161S5E-0? 

.882766F-02 

.930707F-02 

.943866E-02 

0 

.2042P2E-01 

.203610E-01 

0. 

0* 

1 

.2343R0E-01 

.250278E-01 

.1963720*00 

• 190b58E*00 

2 

.264336E-01 

.258616E-01 

.114359f*o6 

.1 15006E*00 

3 

.2744-»0E-01 

.2733R8E-01 

.762697E-01 

.747680E-01 

4 

.26R2?0E-01 

.27221 0E-01 

.550819F-01 

.554292E-01 

3,0 

5 

,2S14*,lE-0i 

.248948E-ni 

.41R5R9F-01 

.426848E-01 

6 

.229006E-0' 

.240R6RE-01 

.32R953F-01 

.328148E-01 

7 

.204376E-0T 

.2051 1?E-01 

.264467E-01 

.268090E-01 

8 

.17Q698E-0i 

.1S0650E-01 

.215998F-01 

.21 1564E-01 

9 

.1544n7E-0l 

.154287E-P1 

. 17RJ67O-01 

.183246E-01 

10 

-13Sn6E-01 

. 1 3337 1 E-0 1 

. 14R440F-01 

• 149056E-01 

0 

,6S72*4E-0! 

.625l7tE-n? 

0. 

0* 

1 

.891646E-07 

.946770E-02 

,196421E*00 

,190615E*00 

2 

.119lq3E-01 

.114R40E-01 

,114516F*00 

.1 lSl22E*00 

3 

.13S317E-01 

• 1 36?7pE-0l 

.76F956F-01 

• 751 J46E-01 

4 

.148242E-01 

.144SR7E-01 

.556281E-01 

.559268E-01 

4,0 

5 

.l'S4445E-01 

.16221SE-01 

.426614F-01 

.434688E-01 

6 

,155CrOE-01 

.16049RE-01 

.339716F-01 

.338648E-01 

7 

.1514r7E-01 

.15279PE-01 

.277957E-01 

.282858E-01 

8 

.144978E-01 

.1483R4E-01 

.232047E-01 

.227554E-01 

9 

. 134472E-01 

.140P05E-01 

.196688F-01 

.200092E-01 

10 

. 1269f8E-01 

,12571?E-01 

.16R665E-01 

,16?633E-01 

♦multiples  of  0.  96  mfp 
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Table  12a.  Transmitted  and  Reflected  Particle  Currents,  Tn(t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Carbon:  Unit  Current  Cosine  Distributed  Source  ,'Cont) 


t* 

n 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  B^it) 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

.217278E-0? 

•21407PE-0? 

0. 

n. 

1 

.3334S1E-07 

•359] 6QE-0? 

• 1 96426F  *00 

•190615E*00 

2 

*476975E-fl7 

•479R34E-0? 

•114534F*06 

•115154E»00 

3 

.615661E-0? 

•58 l?4?E-02 

•766378E-0I 

;751890E-01 

4 

.736340F-0? 

•71752RE-0? 

•557079E-01 

•560174E-01 

5,0 

5 

,83?8l2E-0? 

•83661 oE-02 

•427930E-01 

•435138E-01 

6 

,90?8o8E-0? 

• 959366E-f>? 

•34168?E-0l 

•340218E-01 

7 

.9473O4E-0? 

•97999PE-02 

•280703E-01 

•285132E-01 

8 

,96R9fi6E-03 

•90467PE-0? 

•235662E-01 

•231266E-01 

9 

.971143E-0’ 

,99842ftE-0? 

•201234F-01 

•205178E-01 

10 

.9S7710E-07 

• 99143nE-f>2 

•174171E-01 

•173166E-01 

nr 

,71?330E-n3 

. 77951 nE-03 

0. 

0* 

1 

.1?37r4e-0? 

•122R7RE-02 

•196426E*00 

• 190615E+00 

2 

.1919/.9E-02 

•20887OE-02 

•114536F*05 

. llSl54E*00 

3 

.267170E-0’ 

•256834E-0? 

,766433F-0i 

•751890E-01 

4 

,343lo9E-07 

•3655??E-02 

•557192F-01 

•560352E-01 

6,0 

5 

.4151O7E-0? 

•405626E-0? 

•42R134F-01 

•43&14OE-01 

6 

,4796?5E-0? 

.488] 04E-0? 

•34PD20F-01 

•341130E-01 

7 

,5342«,3E-07 

•521708E-02 

•28l2o?E-01 

•285548E-01 

8 

.57R0»8E-0? 

•585348E-0? 

•236J82F-01 

•231966E-01 

9 

.610713E-0? 

.60647«E-n? 

•202212E-01 

•206060E-01 

10 

.612974E-0? 

•671384E-02 

•1?5446E-01 

•1?3?72E-01 

0 

,2504(s2E-07 

• 28769(SE-03 

0. 

0. 

1 

.4S7775E-03 

•517984E-03 

•196426F*00 

•190615E*00 

2 

.75R9S1E-01 

•767784E-03 

•114537E*06 

•115154E*00 

3 

• U24R4E-0? 

• U99C8E-0? 

.766440E-01 

•75JB90E-01 

4 

•1533q7E-0? 

•149776E-02 

,557208e-01 

•560352E-01 

7,0 

5 

,1964a0E-0’ 

•199R6PE-0? 

•42B165E-01 

•435140E-01 

6 

.239589E-0? 

•231727E-02 

•34P074F-01 

•341130E-01 

7 

.280949E-0? 

•298S06E-0? 

•281294E-01 

•285728E-01 

8 

.3191*6E-0? 

•366454E-0? 

•236515E-01 

•232282E-01 

9 

.3531R8E-03 

•332052E-02 

•20P404E-01 

•206254E-01 

10 

,38?3i6E-0? 

•35869RE-0? 

•1?r7J3E-01 

•1?4*72£-01 

0 

.8664R6E-04 

•114253E-03 

0. 

.1690R1E-0T 

•123444E-03 

•196426E+00 

.190615E+00 

2 

,2966?lE-07 

•270716E-03 

•114537E»06 

;il5l54E»00 

3 

,4638p3E-07 

•519??4E-03 

•766441E-0I 

•751890E-01 

4 

.665841E-03 

•605R46E-03 

•557210E-01 

• 560352E-051 

B.O 

5 

.895846E-03 

• 1 121 64E-02 

•428170E-01 

•435140E-01 

6 

.114572E-0? 

•1307P6E-0? 

•34?0r2e-01 

•341130E-01 

7 

,1405i5E-0? 

•145860E-02 

•281 J09E-01 

•285726E-01 

8 

.166644E-0? 

•157R96E-0? 

•236538F-01 

•232282E-01 

9 

.1921P0E-0? 

•191867E-02 

•202439E-01 

•206254E-0 1 



10 

.216271E-0? 

•231446E-02 

•175/65E-01 

•1?4172E-01 

♦multiples  of  0.  96  mfp 
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Table  12b.  Transmitted  and  Reflected  Particle  Currents,  T_(t)  and  Bn(t), 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Carbon:  Unit  Isotropically  Distributed  Current  Source 


t* 

0 

Transmitted  Current,  T (t) 
I n 

Reflected  Current,  B (t) 
_n 

OOSII  Monte  Carlo 

OOSII  Monte  Carlo 

0 

.1SA9P8E+00  .156700E+00 

0.  0 . 

1 

.12?8q3E*0A  .122900E»00 

.233H65F+00  ,234520E*00 

2 

.83S775E-0*  «832?00E-0 1 

• 1 10432E*00  .111800E*00 

3 

.53S541E-01  .S37?00E-01 

.608861F-OI  i604400E~01 

4 

.3324O8E-01  .331700E-01 

.35?911E-01  i366500E-01 

1*0 

5 

.2032f8E-01  .207SOOE-01 

.209065E-01  .217800E-01 

6 

.123395E-01  .129S0OE-01 

.125049E-01  .125700E-01 

7 

.748?i2E-0?  .777000E-0? 

.751J11E-02  . 776000E-02 

8 

.4508* 1E-0?  .481 000E-02 

.452396E-02  ^59060E-02 

9 

•27??32E-0?  .285000E-02 

.27?733E*02  i2650o8E-02 

10 

.1643O0E-07  .149000E-0? 

.164b4lE-02  .173000E-02 

0 

.M39q5E-0l  .418700E-01 

0 • 0 • 

1 

.49 1 3q8E— 01  .489*00E-01 

.239O99F*00  i239810E*00 

2 

.48311 2E-01  .489300E-01 

. 121 303F  + 06  .122740E*00 

3 

.432573E-01  .424700E-01 

.754789F-0i  i746600E-01 

4 

.3556T5E-01  .361 lOflE-Ol 

.513M93E-01  .523400E-01 

2,0 

5 

.29R391E-01  .298000E-01 

.367889E-01  ;379800E-01 

6 

.238133E-01  .243?OOE-Ol 

.271044E-01  .269300E-01 

7 

,1874?8E-01  .186S00E-01 

.203097F.-01  i208000E-01 

8 

.I45242E-01  .148700E-01 

.l53?32E-01  ;i52400£-01 

9 

.1134R8E-01  . 1 16300E-0 1 

.117082E-01  .118900E-01 

10 

.877776E-0?  .87100OE-O2 

.895041E-02  i893000E-02 

0 

.122204E-01  .120400E-01 

0 . 0* 

1 

• 1812«,6E-01  . 191000E-01 

.239449f*00  i240l40E»00 

2 

.217972E-01  .216500E-01 

• 12;?J26E*08  • 123840E+00 

3 

.234471E-01  .232600E-01 

.773551E-0I  .765100E-01 

4 

.234496E-01  .235900E-01 

.541509E-01  i548000E-01 

3»0 

5 

.221370E-01  .217000E-01 

.403871E-01  * .415000E-01 

6 

.205703E-01  .214500E-01 

.312953E-01  .312loOE-01 

7 

,1849q7E-01  .18840oE-01 

.249373E-01  i252600E-01 

8 

.163607E-0!  .167100E-01 

.202^19E-01  .200S00E-01 

9 

,1429^4E-0l  . 138600E-0 1 

.166834E-01  ;i70466E-01 

10 

.1238R5E-01  . 121 300E-01 

.1380R9E-01  il39200E-01 

0 

.382003E-07  .354000E-02 

0 • 0 • 

1 

.6574c7E-0?  .702000E-02 

.239879E+00  ^240170E*00 

2 

.905633E-0?  .91 SoOoE-02 

.12243lE*00  ;i2392ftE*00 

3 

.110445E-01  .UnOoE-01 

.775874E-01  i768100E-01 

4 

. 1241 4^F -0 1 . 122] OOE’O 1 

.545b7lE-01  .551800E-01 

*»0 

5 

.1317«5E-01  .137400E-01 

,40963*E-01  .^21300E-6i 

6 

.134145E-01  .133800E-01 

.321428E-01  • 32O4O0E-O1 

7 

.132406E-01  . 13300OE-0 1 

.260210F-01  .264100E-01 

8 

.127679E-01  .132200E-01 

.215b23E-01  i212700E”01 

9 

.1209q9E-01  .120600E-01 

.181bq6E-01  ;i83S00E-01 

10 

.113052E-01  .I12000E-01 

.155016E-01  • 155166E-01 

♦multiples  of  0.  96  mfp 
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Table  12b.  Transmitted  and  Reflected  Particle  Currents,  T (t)  and  B (t). 
Obtained  by  Two  Methods,  Resulting  from  the  Scatter  of  Neutrons  by 
Carbon:  Unit  Isotropically  Distributed  Current  Source  (Cont) 


t* 

n 

Transmitted  Current,  T (t) 

n 

Reflected  Current,  Bn(t) 

OOSII 

Monte  Carlo 

OOSII 

Monte  Carlo 

0 

.123775E-0? 

.120000E-0? 

0. 

o. 

1 

.2376?3E-0? 

.?54000E-n? 

• 239482F  *00 

.240170E»00 

2 

.362215E-0? 

•361000E-02 

• 122943f*00 

• 123940E»00 

3 

.48S7S1E-0? 

.454000E-0? 

.776163F-0I 

.768400E-01 

4 

.596966E-0? 

•58700QE-0? 

.546141E-01 

.552400E-01 

5.0 

S 

.668947E-0? 

•689000E-02 

.410606E-01 

.421800E-01 

6 

.7S4S78E-0? 

.799000E-02 

.322921E-01 

.321600E-01 

7 

.80S660E-0? 

.786000E-0? 

.262J34E-01 

.265700E-01 

8 

.831977E-0? 

.819000E-0? 

.218368E-01 

;215300E-01 

9 

.840184E-0? 

.862000E-02 

.18S226E-01 

.187b00E-01 

10 

.8336S2E-0? 

.851000E-02 

.159468E-01 

.159700E-01 

0 

.41671 JE-01 

•410000E-03 

0. 

0* 

1 

.859289E-03 

.880000E-03 

,239482F»00 

;240170E*00 

2 

.141918E-0? 

.155000E-0? 

.122444E»06 

.123940E»00 

3 

.20*;3e4E-0? 

.192000E-02 

.776199E-01 

.768400E-01 

4 

.271  lqSE-O? 

.273000E-02 

.546220E-01 

•552500E-01 

610 

5 

.33S0f2E-0? 

•331000E-02 

.410/53E-O1 

.421800E-01 

6 

.393533E-07 

.409000E-02 

.323166E-01 

;322100E-01 

7 

.444201E-0? 

.4I5000E-0? 

.267713E-01 

;266160E-01 

8 

.48S770E-0? 

.484000E-02 

.218919E-01 

.215800E-01 

9 

.5177q7E-0? 

.531000E-02 

.185986E-01 

.188500E-01 

10 

.540514E-02 

.569000E-02 

.160971E-01 

.160200E-01 

0 

. 1 387q7E-03 

.150000E-07 

0. 

o. 

1 

.311349E-03 

.320000E-03 

,239483F»00 

•240170E*00 

2 

.549172E-07 

.610000E-03 

■ 122444F  *00 

;i23940E»00 

3 

.84S9S7E-03 

.790000E-03 

.776204E-0I 

• 768400E“01 

4 

.118660E-0? 

.117000E-02 

.546231E-01 

;552500E-01 

7.0 

5 

.155308e-0? 

.149000E-02 

.410I74E-01 

.421860E-01 

6 

.192703E-0? 

.188000E-02 

.323205E-01 

;322100E-01 

7 

.229180E-0? 

.241000E-02 

.2627?7E-01 

.266200E-01 

8 

.26336?E-d? 

.290000E-02 

.219018E-01 

•216000E-01 

9 

.294278E-0? 

.279000E-02 

.186I32E-01 

il88?00E-01 

10 

.3211?lE-0? 

.314000E-02 

.160677E-01 

.160400E-01 

0 

.47S5ME-04 

•boOOOOE-04 

~U1 

6» 

1 

.1130P8E-03 

.700000E-04 

,239483e»00 

.240170E»00 

2 

.210845E-03 

.2I0000E-03 

,122445e»06 

.123940E*00 

3 

.3425P4E-03 

.330000E-03 

.776204F-0I 

• 768400E-0 1 

4 

.50S9&7E-03 

•420000E-03 

.546232E-01 

.552500E-01 

8,(1 

5 

,6958q8E-03 

.800000E-03 

.410777E-01 

.421800E-01 

6 

.90S596E-07 

.ld0OO0E-02 

.3232UE-01 

•322100E-01 

7 

.112735E-0? 

.112000E-02 

.262787E-01 

•266200E-01 

8 

.13S373E-0? 

.129000E-02 

.21Q035E-01 

i216060E-01 

9 

.1576llE-0? 

. 148000E-02 

.186IS8E-01 

, 188?00E-01 

10 

.179003E-0? 

.185000E-02 

•1E0716E-01 

• 160400E-01 

♦multiples  of  0.  96  mfp 
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7.3  Monte  Carlo  Calculations  for  Neutron  Scattering  in 
Hydrogen  and  Carbon 

Monte  Carlo  computations  were  made  to  verify  the  results  obtained  for  the 
two  anisotropic  scattering  cases  that  have  been  considered.  The  computer  code 
used  was  the  same  as  that  for  the  isotropic  scattering  simulation  with  the  exception 
of  the  calculation  of  the  post- collision  particle  trajectory  orientation.  This  is  due 
to  the  fact  that  the  scattering  must  be  treated  as  isotropic  in  the  center  of  mass 
rather  than  the  laboratory  system. 

The  cosine  of  the  deflection  angle  in  the  laboratory  system  is  given  by  Eq. 

(114).  The  azimuthal  deflection,  p,  is  determined  by  a uniform  sampling  on  the 

interval  (0,  2v).  Then  if  9 n and  0n  are  the  polar  and  azimuthal  angles  respectively 

1 6 

in  the  laboratory  system  prior  to  the  nth  interaction. 


cos  0n+1  = cos  9 n cos  (i)  f + sin  9n  sin  W f cos  p , 


sin  0lrri  = \1-  cos^  9 


„n+l 


2 „n+l 


, cos  co  , - cos  9 cos  9 

,,n+l  . n.  l 

cog(0  -0  ) = , n TWtl  ' 

sin  9 sin  9 


„ , , „ sin  p sin  co 

.._/An+l  .n,  _ ^ l 


7n+T 

sin  0 


If  (sinO  n)’  (sin0  n+1)  = 0,  then  the  last  two  relations  are  replaced  by 
,n+l 

cos  0 = cos  p . 

,n+l 

sin  0 = sin  p . 


(121a) 

(121b) 

(122a) 

(122b) 


(123a) 

(123b) 


The  Monte  Carlo  results  for  both  neutron  scattering  cases,  hydrogen  and 
carbon,  are  given  in  Tables  10  and  12,  respectively,  where  they  may  be  compared 
with  their  corresponding  OOSII  results. 


7.4  The  Screened  Rutherford  Interaction 

Another  application  of  the  OOSII  method  can  be  found  in  the  investigation  of 
the  scattering  of  low  energy  electrons  in  thin  films.  On  the  basis  of  empirical 
studies,  it  is  believed  that  the  contribution  due  to  electron-phonon  interactions  to 

16.  Raso,  D.  J. , and  Woolf,  S.  (1965)  Ionization  Resulting  from  a Neutron  Point 

Source  in  an  Exponential  Atmosphere,  Tech,  Ops.  Res.  Rpt.  No.  TO-B-  135  - 
43,  Technical  Operations,  Inc.,  Burlington,  Mass. 
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the  transmitted  and  reflected  electron  yields  from  thin  films  which  have  undergone 

electron  beam  bombardment  may  be  estimated  if  the  scattering  angular  distribution 

of  this  interaction  is  characterized  by  a screened  Rutherford  cross  section.  The 

OOSR  formulation  is  a natural  choice  for  such  an  analysis  since  the  average  energy 

17 

loss  per  electron-phonon  interaction  is  known. 

As  is  well  known,  the  Rutherford  scattering  formula  for  unscreened  coloumb 
interactions  states  that  in  the  laboratory  system  (if  the  scattering  center  is  massive 
enough),  the  probability  density  of  a particle  undergoing  deflection  through  an  angle 
(jJ } has  the  form 

f(cos  cu  ) a 5r  • (124) 

(1  - cos  cu  f ) 

This  formula  has  a singularity  in  the  forward  direction  (cos  U)  ^ = 1).  To  overcome 
this  difficulty,  a screening  factor,  r)  > 0,  can  be  introduced  so  that,  when  normal- 
ized, the  following  modified  form  of  the  Rutherford  formula  results: 

..  v 1 77(1+7?/ 2) 

f(cosw.)  = -s-  ^ — — 2 ■ 

^ (1  + 7?  - COS  W;) 


The  degree  to  which  the  parameter  rj  influences  the  anisotropy  of  f is  seen  in  the 
expression  for  jti^,  the  cosine  of  the  deflection  angle  for  which  the  probability  of 
occurrence  is  1/2.  It  is  easily  shown  that  in  terms  of  77, 


Ml/2  1 + 77  ’ 


(126) 


It  is  apparent  that  as  77  tends  toward  °°,  the  scattering  tends  toward  isotropic,  and 
as  77  tends  toward  zero,  the  scattering  becomes  more  forward  peaked. 

As  in  the  previous  scattering  cases  considered,  the  form  of  the  scattering 
probability  density  function  required  for  use  with  the  OOSII  algorithm  must  be 
independent  cf  azimuth.  This  is  accomplished  in  the  following  way,  since: 

cos  o>£  = f21  • f?2  = sin  6 j sin  6 g cos  <p  + cos  6 j cos  9 2 , (127) 

where  ^ and  are  as  defined  in  Eqs.  (105),  then 


17.  Stuart,  R. , Wooten,  F. , 


andSpicer,  W.E.  (1964)  Phys,  Rev.,  135:A495. 
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f(/i 


1’ 


^ 2*  ~ 


77(1+77/2) 


/ 

o 


d 0 


j(l+  77  - MjMg)  ~ (V1-  /l|)  COS  0 


(128) 


or 


f(Mr  M2) 


77(1+  77/2)  (1+7?-  MjMg) 

[t72+  2 77  (1  - /i1/i2>  + (Mj-m/  ] 3/2 


(129) 


The  scattering  matrix  /ig)  of  Eq.  (129)  was  evaluated  for  five  values  of 

77  corresponding  to  average  deflection  angles  of  15°,  30°,  45°,  60°,  and  75°.  Thus 
a full  range  of  anisotropy  was  covered.  For  each  of  these  cases,  this  matrix  was 
substituted  into  the  expressions  of  Eqs.  (63)  and  (64),  and  the  OOSII  computed 
program  was  run  to  provide  computations  of  transmitted  and  reflected  currents. 

The  results  obtained  for  these  cases  are  plotted  in  Figures  31  through  40.  The 
transmitted  and  reflected  currents,  Tn(t)  and  Bn(t),  are  plotted  vs  slab  thickness 
for  the  cosine  source  configuration.  The  contrast  between  these  curves  and  those 
of  the  isotropic  scattering  case  is  quite  noticeable  if  reference  is  again  made  to  the 
corresponding  plots  of  Figures  14  and  15. 

An  independent  verification  of  the  screened  Rutherford  results  is  made  possible 
by  the  availability  of  Monte  Carlo  calculations  made  by  J.  C.  Garth  in  19746  of  the 
transmitted  low  energy  electron  current  through  LiF  thin  films  assuming  screened 
Rutherford  scattering  to  hold.  Tables  13  and  14  compare  these  results  for  10 
scattering  orders.  The  first  table  shows  the  comparison  for  two  slab  thicknesses, 

1.  0 and  3.  6 mfp,  for  an  average  scattering  angle  of  15°.  T1  e second  table  com- 
pares results  for  1.  0 and  7.  0 mfp  thickness  given  an  average  scattering  angle  of 
30°.  In  all  cases,  six  discrete  ordinates  per  quadrant  were  used  in  the  angular 
integrations. 
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TRANSMITTED  CURRENT 


SLAB  THICKNESS! MFP ) 

Figure  31.  Transmitted  Current,  Tn(t),  vs  Slab  Thickness,  t,  for  nth  Order 
Screened  Rutherford  Scattering  (0  £ n £ 10)  with  15°  Average  Scattering  Angle 
Cosine  Current  Source  Configuration 


mu 


SLAB  THICKNESS(MFP) 


Figure  33.  Transmitted  Current,  T (t),  vs  Slab  Thickness,  t,  for  nth  Order 
Screened  Rutherford  Scattering  (Os  n s 10)  with  30°  Average  Scattering  Angle 
Cosine  Current  Source  Configuration 


SLAB  T H I CKNESS ( MFP ) 

f igure  35.  Transmitted  Current,  Tn(t),  vs  Slab  Thickness,  t,  for  nth  Order 
Screened  Rutherford  Scattering  (0  s n « 10)  with  45°  Average  Scattering  Angle 
' Cosine  Current  Source  Configuration 
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REFLECTED  CURRENT 


REFLECTED  CURRENT 


SLAB  THICKNESSC  MFP  ) 


Figure  40.  Reflected  Current,  Bn(t),  vs  Slab  Thickness,  t,  *or  nth  Order 
Screened  Rutherford  Scattering  (lsn^  10)  with  75°  Average  Scattering  Angle; 
Cosine  Current  Source  Configuration 


^ 4.  mv&nn 
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Table  13.  Transmitted  Particle  Currents,  Tn(t),  Obtained  by  Two 
Methods,  Through  Two  Slabs  of  Width  t=l.  0 and  t=3.  6 mfp:  Unit 
Current  Cosine  Distributed  Source;  Screened  Rutherford  Scattering 
with  an  Average  Scattering  Angle  of  15° 


t 

n 

Transmitted  Current,  T (t) 

OOSII 

g 

Monte  Carlo 

i 

. 2762  00 

. 2721  00 

2 

. 1930  00 

. 1898  00 

3 

. 1039  00 

. 1007  00 

4 

. 5108-01 

.4965-01 

1.  0 

5 

. 2554-01 

. 2357-01 

6 

. 1370-01 

. 1282-01 

7 

.7935-02 

.739  -02 

8 

.4886-02 

.459  -02 

9 

. 3140-02 

. 287  -02 

10 

. 2071-02 

. 208  -02 

1 

. 3347-01 

. 3320-01 

2 

.6661-01 

.6501-01 

3 

. 9285-01 

. 887‘j-01 

4 

. 1027  00 

. 9756-01 

3.  6 

5 

. 9682-01 

. 9247-01 

6 

. 8193-01 

. 7693-01 

7 

. 6469-01 

. 6058-01 

8 

.4919-01 

.4558-01 

9 

. 3691-01 

. 3379-01 

10 

. 2782-01 

. 2519-01 

Table  14.  Transmitted  Particle  Currents,  Tn(t),  Obtained  by  Two 
Methods,  Through  Two  Slabs  of  Width  t=l.  0 and  t=7.  0 mfp:  Unit 
Current  Cosine  Distributed  Source;  Screened  Rutherford  Scattering 
with  an  Average  Scattering  Angle  of  30° 


t 

n 

Transmitted  Current,  T (t) 

OOSII 

0 

Monte  Carlo 

i 

. 2388  00 

. 2382  00 

2 

. 1542  00 

. 1551  00 

3 

. 8205-01 

. 8109-01 

4 

.4196-01 

.4276-01 

1.  0 

5 

. 2224-01 

. 2208-01 

6 

. 124  6-01 

. 1272-01 

7 

02 

.751  -02 

8 

4385-02 

.482  -02 

9 

. 2665-02 

.271  -02 

10 

1620  2 

. 155  -02 

1 

. 9883-03 

.92  -03 

2 

. 2824-02 

.285  -02 

3 

. 5788-02 

.584  -02 

4 

. 9540-02 

.957  -02 

7.0 

5 

. 1346-01 

. 1333-01 

6 

. 1691-01 

. 1721-01 

7 

. 1946-01 

. 1956-01 

8 

. 2095-01 

. 2051-01 

9 

. 2144-01 

. 2069-01 

. 2115-01 

. 2086-01 
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8.  CONCLUSIONS 

Throughout  the  preparation  of  this  document,  the  objective  has  been  that  of 
providing  a complete  description  of  the  development  of  a new  method  for  deter- 
mining emergent  nth  order  scattered  particle  currents  from  scattering  media.  In 
addition,  some  applications  of  the  method  have  been  demonstrated. 

Areas  of  further  application  are  suggested  in  the  current  invariant  imbedding 
literature.  For  example,  in  the  field  of  medical  physics,  invariant  imbedding 
analyses  of  finite  (nth)  order  scattered  currents  have  been  performed  for  the 
problem  of  the  scattering  of  Co^  gammas  in  skin  tissue.  ^ The  argument  is  made 
(op.  cit. ) that  only  a few  scattering  orders  are  necessary  to  determine  the  skin 
dose  because  of  the  large  mean-free-path.  The  analysis  presented  in  Ref.  18  is 
derived  from  the  equation  of  radiative  transfer  and  consists  of  integro-differential 
recursion  relations  for  the  nth  order  reflection  and  transmission  functions.  The 
energy  dependence  of  the  scattering  kernel  is  also  retained.  As  far  as  can  be 
determined  from  the  available  literature,  numerical  solutions  of  these  equations  do 
not  yet  exist,  most  probably  because  their  solution  would  require  a formidable 
effort.  The  possibility  then  arises  of  the  application  to  this  problem  of  the  OOS11 
method  or  a modification  of  it  which  includes  energy  dependence  in  the  integral 
recursion  relations. 

Another  area  of  possible  application  occurs  in  the  field  of  reactor  physics. 

5 

Mingle  in  his  analysis  of  finite  order  isotropic  scattering  of  neutrons,  showed 
that  for  a multiplying  medium,  the  total  transmitted  and  reflected  particle  currents 
can  be  given  by  the  summations  over  n of  terms  of  the  form  cnT^  and  c11!?^,  where 
n is  the  order  of  scattering,  and  c is  the  number  of  secondary  particles  produced 
per  collision.  Since  the  OOSII  method  can  be  applied  to  anisotropic  scattering,  a 
broader  range  of  utility  may  be  achieved. 

With  regard  to  both  the  efficiency  and  the  accuracy  of  the  calculational  method 
presented  here,  a most  favorable  comparison  can  be  made  with  the  equivalent 
Monte  Carlo  calculation.  An  example  of  this  is  found  in  the  cosine  law  scattering 
situation  (neutrons  in  hydrogen)  where  the  OOSII  method  consumes  365  seconds  of 
Central  Processor  time  on  a CDC(6600)  computer  for  the  transmitted  and  reflected 
currents  to  10th  order  for  41  slab  thicknesses  ranging  from  0 to  8 mfp.  The 
equivalent  Monte  Carlo  calculation  required  508  seconds.  Furthermore  a degree 
of  accuracy  is  possible  here  which  cannot  be  attained  feasibly  with  the  Monte  Carlo 
method.  For  instance,  the  OOSII  method  always  yields  a number  for  small  slab 

_7 

thicknesses  (0.  2 mfp),  even  for  10th  order  scattering,  such  as  7 X 10  for  the 
emergent  current,  whereas  the  Monte  Carlo  calculation  of  100,000  particle 

18.  Bellman,  R. , Ueno,  S. , and  Vasudevan,  R.  ( 1973)  Mathematical  Biosciences, 

17:89.  

AM 
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histories  does  not.  In  order  to  obtain  one  particle  count,  approximately  1,5 
million  histories  (or  2 hours  of  computer  time)  would  be  required.  A comparable 
situation  applies  for  very  thick  slabs,  where  it  is  possible  to  increase  the  integra- 
tion step  size  in  the  OOSII  calculation,  assuming  near  linearity  for  the  reflected 
current  and  a decaying  exponential  approximation  for  the  transmitted  current, 
without  a significant  increase  in  error. 
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Appendix  A 


Computer  Code  Listing 


I 

j 


i1' 

1( 


, 


. .... > -— - 1 - - — -~**y 


m 


c 


1 


c 

c 

c 


11 


PROGRAM  IN VI MB ( INPUT, OUTPUT, TAPE 3 > 

COMMON  THK (51) ,TRAN (41), TRAN1 (40) , BACK (40)  , BACK1 ( 40)  ,F,B,K,T ,T1 
1TRAY(51,40),9RAY(51,40),KMAX,TKPLT(10> ,NCURV 
OIMENSION  IOT  (5 1 ) 

DATA  IDT/1, 50*40/ 

REAC  i,NCASE 

NCASE  - NO.  OF  CASED  TO  BE  RUN 
FORMAT ( 15) 

OO  500  IJK  = 1,NCASF 

THK (1 ) =0.0 

READ  9, THICK , F,K  M AX 

THICK  - MAXIMUM  ROD  LENGTH 

F - FORWARD  SCATTERING  PROBABILITY 

KMA X - NO.  OF  ROD  LENGTHS  cOR  WHICH  CURRFNTS  ARE  COMPUTED 
FORMAT(2F10. 0,110) 

OT=THICK/FLOAT (KMAX-1) 

00  11  KT=2,KMAy 

THK  (KT ) =THK (KT-1 ) *DT 

CONTINUE 

T=  0 . 0 

B=l.-F 

K=  1 

KT=  1 

KT0T=  IOT ( KT) 

CALL  GETFN 
00  49  N=1 , 40 
TRAN1(N)=TRAN(N) 

BACK1 (N)=BACK(N) 

CONTINUE 

IF  K.EQ.KTOT)  GO  TO  45 

GO  TO  48 

00  47  N=1 ,40 

TRAY  (KT ,N)=TRAN (N) 

BRAY (KT ,N)  =BACK(N) 

CONTINUE 
KT=KT  +1 

IF  (KT.GT.KMAX)  GO  TO  52 
KTOT=KTOT+IOT(KT) 

OTM= (THK(KT) -THK  (KT-1) ) /FLOAT  <IDT (KT ) ) 

T 1=  T 
T =T 1+OT  M 
K = K+i 

IF  (T.LE.THK(KMAX) ) GOTO  50 

CONTINUE 

PRINT  299 

FORMAT (*1* ) 

PRT.n  300, F,B 
NT=  1 

CALL  PRNTR(NT) 

PRINT  299 
PRINT  301, F,B 
NT  = 2 

CALL  PPNTR  (NT) 

FORMAT (IX ,*TRA NS MISSION  - F=*,F5.3,*  B=*,F5.3) 

FORM  AT  ( IX,  *BACKSCATTER  F--  * , F5 . 2 , * e=*,F5.3) 

WRITE (3) (THK (K) ,K= 1 ,KMAX) 

WRITE (3) ( (TRAY(K,N) , K=1 , KM AX ) , N= 1 , 40 ) 

WRITE (3) ( (BRAY (K ,N) ,K=1 ,KMAX) ,N=1 ,40) 

CONTINUE 

STOP 

END 
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SUBROUTINE  PRNTR (NT) 

OIM ENSION  SUM( 5 1)  ,ANSB(5i)  ,ANST(51> 

DIMENSION  IK (5) 

COMMON  THK(5i) , TRAN (41) , TRANK40) , BACK (40) , B ACKi (4  3 ) , F ,B  ,K  ,T  , T 1 , 
i TRAY (51 ,*  ), BRAY (Si, 4 0)  , KMAX ,TKPLT  (iO),NCURV 
K1--4 

DO  330  1=1  , KMAX 

ANSE(I)=(B*THK (I ) )/ (l.+B*THK(I) ) 

ANST(I)  =1  ,-ANS8(  I)  -EXF(-THKd)  ) 

SUM  (I)  = 0. 0 
00  331  NK= 1, 40 

IF (NT. EC. 1)  SUM(I)=SUM(I) +TR A Y ( I , NK ) 

IF ( NT. E 0.2)  SUM(I)=SUM(I) + BR A Y ( I ,NK 
331  CONTINUE  - 

330  CONTINUE 
315  Kl  = Kl+5 
K2  = K1 +4 

IF ( K2 . GT. 40 ) G 0 TO  320 
DO  310  1=1, KMAX 
IK  (l)=Ki 
DO  360  L = 2 ,5 
IK  (L)  = IK  (L  -1  ) + l 
360  CONTINUE 

IF(I.EO.l)  PRINT  361, (IK (L >,L=i, 5) 

3 61  FOR  MAT ( 7 X, *T*,6X, *N  = * ,4 X , 18 , 41 16 > 

IF  (NT.EQ. 1)  PRINT  321 ,THK ( I > , (T R A Y ( I , NK) , NK= Kl, K 2) 

IF(NT.E0.2)  PRINT  3 21 ,TH K ( I ) , ( BRA Y (I  , NK ) , NK  = K 1 ,K 2) 

321  F0RMAT(1X,E12.5,5X,5E16.  9) 

310  CONHNIF 

GO  TO  ?1S 
320  PRINT  322 

IF(NT.FQ.1)PRINT  362 
IF (NT.EQ. 2 >PRINT  363 

362  FORMATdX, ’TRANSMISSION  SUM  CHECK*) 

363  FORMATdX, ’BACKSCATTER  SUM  CHECK*) 

PRINT  364 

364  F0RMAT(7X, *T*,14X, ’SUMMATION*, 4X , ’ANALYTIC  RESULT*) 

DO  323  1=1, KMAX 

IF(NT.FQ.l)  PRINT  3 24 , THK (I) , SUM  ( I ) , ANST ( I) 

IF (NT.EQ. 2)  PRINT  324 ,T HK (I ) , SUM (I ) , ANSB( I) 

323  CONTINUE 

322  F ORMAT (*1* ) 

324  FORMA’' dX,  El 2. 5,  5 X,  2E16.9) 

RETURN 

END 
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SUBROUTINE  GETFN 

COMMON  THK(51),TRAN(41)  ,TRAN1  (4  0 ) , BACK  <40 ) ,B  ACK 1 ( 4 0)  , F ,B  , K,T  ,T  1 , 
iTRAY(5i,40),BRAY(5if40l  , KMAX, TKPLT (10) ,NCURV 
DIMENSION  SI (40) »S2 (40) ,S3 (40) ,TRINT (40) ,TRSLP(40) ,0 KINK 40) , 
1BKSLP(40) 

IF(K.GT.l)  GO  TO  11 
OO  SO  N= 1 » 40 
TRAN(N) =BAC<(N) =0. 

80  CONTINUE 
1 Al*F*B/2. 

A2=A1*B 
A3=A1*F 
A4=  0 . 5*  0**2 
A 5=  B* A4 
A6=0.5*F**2 
A7=F*A6  n . 

RETURN 
11  CONTINUE 
FT=EXP(-T) 

ET2=FT**2 

0T=T-T1 

TRAN(1)=ET*F*T 
B ACK(  1)  =0. 5*B*(1.-ET2) 

TRAN(2)=ET*(A6*T**2+A4*T-0.5*A4* (1.-ET2)) 

BACK(2>  = A1*(  l.-ET2*(l.*2.*T>  ) 

TRAN(3)=ET* (A7*T**3+A2* (T** 2+ 0. 5*T- 1. ) + A2*ET2 *( 1 . *1 . 5*T>  ) 

B AC K( 3) =A3*(l.-(2.*T**2  + 2.*Kl.)  *ET2) -A5*T*ET2+C.  25* A5* ( 1. -ET 2** 2 ; 
00  49  N=1 ) 3 

TRSLP(N)= (TRAN(N)  -T  RANK  N)  ) /OT 
BKSLP(N)=(BACK(N) -BACKl(N) ) /DT 
TRINT (N ) = TRAN (N) -T*TRSLP(N) 

BKINT  (N)  = BACK  ( N)  “T*BKSLP (N) 

49  CONTINUE 
IF(X.EC.2)  GO  TO  50 
ET1 =EXP  (T1 ) 

F2  = F1 
F 4 = F 3 

50  ET=EXF(T) 

Fl=ET*(T**2-2.*T+2.) 

F3=ET*(T-1.) 

F5=ET-1. 

OC  53  N=4 » 40 
MT0P=N-2 

IF  (K«  GT. 2)  GO  TO  54 

S2(N)=0.0 

S3 (N) =0  .0 

TERM1=0.0 

TEPM=0.0 

00  51  M=l,MTOP 

NM=N-M-1 

TERM=TERM+(F1-2.)*TRSLP(NM>*9KSLP (M )+ (F3+1 .)* (TRINT ( NM) *BKSL P (M) + 
lBKINT(M) *TRStP(NM) ) +F5*TRINT (NM) *BKINT (M) 

TERM1=TERM1+TRSLP(NM)  *TRSLP (M) * (T**3 ) /3 . + 

1 (TRINT(NM) *TRSLP(M) ♦TRSLP(NM) *TRINT ( M) > *0 ,5*T** 2 + 

2 TRINT (NM) * TRINT (M) *T 


51  CONTINUE 

S 2 ( N) =S2(N)+TERM+0.5*BKSLP(N-1)*T**2+ BKINT (N-1)*T 


i)l(N)  =(TRINT  (N-i  )-TRSLP(N-l  )+TRSLP(N-l  )* T ) *E T-TR INT  (N-l)  +TRSLP(N-1 
1) 

S3  ( N)  = 53 (N)  +TERM1 +2 .* (TRSLP (N-l)  +TRINT  (N-l)  ) - 
1 2.*(TRSLP(N-1)*(1.+T)+TRINT(N-1))/ET 

TRAN(N)=(F*S1(N)  +8*S2(N)  ) /ET 
BACK  (N) =B*S3 (N) 

GO  TO  55 

54  Si  ( N)  =S1  (N)  + (TRINT(N-l)-TPSt.P  (N-l ) +T*TRSLP  (N-l) ) *ET 

1 -(TRINT (N-l) -TRSLP(N-l) +T1*TRSLP(N-1) )*ET1 

TERH1=C.0 

T33=(T**3-Tl**3)/3. 

T22=(T**2-T1**2> /2. 

TERM=0.  0 

DO  -52-**l,'MT-OP- • - - ■ — - - - -■  •- 

NH=N-M-1 

TERM=TERH*TRSLP(NM)  *BKSLP(M)*(Fl-F2)+(TRINT(Nf')*BKSLP(P)  + 
1BKINT(M)*TRSLP(NN) )*(F3-F4) + TRINT (NM) *BKINT(M)*(ET-ET1) 
TERH1=TERMH-TRSLP(NN)  *TRSLP(N)*T33+TRINT(NH)*TRINT(M)*OT  + 

1 (TRINT (NM) *TRSLP (M) +T RSLP (NM ) *TRINT( M) ) *T22 

52  CONTINUE 

S2  (N)  = S2  (N)  ♦TERM+8KSLF(N-1  >*T22  + PKINT  (N-1)*DT 
S3 (S)=5  3(N)  + TEPM1+2.»(TRSLP(N-1) *( 1. +T  1) +TRINT (N-l) ) /ETl  - 
1 2.*  (TRSLP(N-l)* (l.fT  ) ♦TRINT (N-l ) ) /ET 

TRAN(N)=(P*S1(N) +B*S2(N) ) /FT 
BACK(N) =B*S3(N> 

55  TRSLP(N)= (TRAN(N) -TRAN1 (N) )/CT 
BKSLP(N) =( BACK(N) -BACK1 (N) ) /OT 
TRJNT(N)=TRAN(N) -T*TRSLP(N> 

BKINT(N)=BACK(N) -T’BKSLP (N) 

53  CONTINUE 
RETURN 
END 
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PROGRAM  OOSII  (INPUT  , OUTPUT  ,T  APE  5 , T APE  3i> 

COMMON  THK(51),TRAN(6,6,10>  , TRANK  6,  6, 10)  , BACK(  6 , 6 , 10)  ,BACKl(6,6, 
110) ,F (6,6) ,PATHO,PATH(10),TRAY(51,10),BRAY(51,1D),COEFF(6),  ' 
20R0NAT(6) , K ,T ,T 1 , KM AX, MAXORD, NSC ATS, TRY(5i , 1 0 ,6) , BRY(51, 10,6) , 
3TROY(51,10,6) , BRO Y( 51 , 10, 6) ,FF(6,6>  , ADDUP(51) 

DIMENSION  IDT (51) ,AC0F(6 ,3) ,ORD(6,3) 

DIMENSION  FA(6, 6) , FB(6,6) 

DATA  TWOPI/6. 283185307/ 

DATA  IPT/1,50*4/ 

DATA  ACOF/0.  3478 54845 137 , 0 . 65 2 1451 54 863  ,4  * 0 ., 0 . 10 1228 53629 0 , 

1 0.222381034453,0.313706645878, 0. 3 62683 78337 8, 2 *0 . , 

20.0  4 7 1 7 5 3 3 6 3 8 7, 0 . 1 0 6 9 39  3 2 5 9 9 5 , 0 . 1 6 0 0 7 8 3 2 8 5 4 3 , 0 . 2 0 3 1 6 7 4 26  7 2 3, 

..  2.3349253653.8., Qv.24°J-4.70.45813 . , 

DATA  OPD/ 0.8 61 13631 1594, 0. 33998 10 4358 5 , 4*0 ., 0 . 96 02 89 856498 , 

1 0.796666477414, 0. 5255 324 0 99 16 , 0. 163434642496,2*0. , 

2 0.9  8156  0634247,0.9041  17  25  63  70,  0 . 7699 02674194,  0 . 58 73 179 54287 , 

30. 367831498998,0.125233408511/ 

500  READ  9, THICK, KMAX, MAXORD, NSCATS , KPRNT, IDBG , NVER 
THICK  - MAXIMUM  SLAB  THICKNESS 

KMAX  - NO.  OF  SLAB  THICKNESSES  FOR  WHICH  CURRENTS  ARE  COMPUTED 
MAXORD  - NO.  OF  GAUSS  QUADRATURE  POINTS  TO  BE  USED 
NSCATS  - MAXIMUM  NUMBER  OF  SCATTERINGS  TO  BE  CONS  IDE  RE  C 
KPRNT  - CONTROL  PARAMETER  FOR  PRINTING  OUT  DIRECTIONAL  CURRENTS 
IF  EQUAL  TO  2ERO,  PRINTOUT  SUPPRESSED 
IF  NOT  EQUAL  TO  ZERO,  PRINTOUT  ACTIVATED 
IDBG  - CONTROL  PARAMETER  FOR  PRINTING  OUT  DEBUGGING  INFORMATION 
IF  EQUAL  TO  ZERO,  PRINTOUT  SUPPRESSED 
IF  NOT  EQUAL  TO  ZERO,  PRINTOUT  ACTIVATED 
NVER  - CONTROL  PARAMETER  FOR  TYPE  OF  SCATTERING  TO  BE  CONSIDERED 
= 1,  ISOTROPIC  SCATTERING 
= 2,  COSINE  LAW  SCATTERING 
- 3,  SCREENED  RUTHERFORD  SCATTERING 
ETA  - RUTHERFORD  SCREENING  PARAMETER,  HAS  MEANING  ONLY  WHEN 
NVER=3 

(A  BLANK  CARD  FOR  THE  ABOVE  TERMINATES  THE  RUN,  OTHERWISE  THE 
RUN  MAY  BE  RECYCLED  USING  VALID  PARAMETERS) 

IF(THICK.EQ.O.O)  GO  TO  501 
REWIND  5 
99  FORMAT(E16.9) 

READ  99, ETA 

IF( NVER.EQ.3) PRINT  991, ETA 

991  FORMAT ( IX, ’SCREENED  RUTHERFORD  ETA  = *,  E16.9) 

9 FORMAT(F10. 0,6110) 

PA  THO=l • 0 
DO  897  11=1,10 
P ATH(  II)  =P  ATHO 
897  CONTINUE 

IF (MAXORD-4) 31,32,33 

31  DO  34  1=1, MAXORD 
ORCNAT  (I)  =ORl'tt,i) 

COEFFJI)=ACO‘( 1,1) 

34  CONTINUE 
GO  TO  37 

32  OO  35  1=1, MAXORD 
ORDNAT  ( I)  =OP.O  (1,2) 

COEFF(I) = ACOF ( 1,2) 

35  CONTINUE 
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GO  TO  37 

33  00  36  1 = 1,  MAXORO 
ORCNAT(I)=ORO(I,3> 

COEFF (I) = ACOF (1,3) 

36  CONTINUE 

37  CONTINUE 

IF(NVER.EQ.l)  CALL  GF1(MAXORO,ORO,FA,FB> 

IF ( NVER .EQ .2 ) CALL  GF2(MAXORO , ORO , FA , FB> 

IF( NVER . EQ. 3 ) CALL  GF3 ( MA XORO , ORO, FA ,F B,ETA ) 

00  777  1= 1 , MAXORO 
00  777  J=l, MAXORO 
FFCI,  J)=FA  CI,J) 

F(I,J>=FB(I,J) 

777  CONTINUE 
10  CONTINUE 

0T=THTCK/FL0AT(KMAX-1) 

THK  (1)  = 0.  0 
00  13  KT=2»KHAX 
THK(KT)=THK(KT-1) +0T 
13  CONTINUE 

HRITEC5)  THICK, KHAX,HAXORO,NSCATS 
WRITE (5 ) (ORONAT (I) , COEFF ( I ), 1= 1, MAXORO) 

WRITE(5  ) (THK(I)  ,1  = 1,  KMA  X) 

74  CONTINUE 
T = 0 .0 

K=1 
KT  = 1 

KTOT=IOT(K  ) 

50  CALL  INTGRL 

00  49  N = 1 , NS  CATS 

00“  49  I K=l, MAXORO 

00  49  IP*1, MAXORO 

TRANK  IK,  IP,  N)=TRAN(IK,IP,N) 

BACK1(IK,IP,N)=BACK (IK,IP,N) 

49  CONTINUE 

IF(K.EQ.KTOT)  GO  TO  45 
GO  TO  48 

45  IFCIOBG.EQ.Oi  GO  TO  398 
00  47  N = i , NSCA  TS 
TRAY(KT,N)=0. 0 
BRA Y(KT,N> =0.0 
DO  46  IP=1, MAXORO 
TRY(KT, N, IP) =0.0 
BRY (K T, N , IP ) = 0 . 0 
00  44  IK=1, MAXORO 

TRYCKT, N,IP) =TRY (KT,N,IP) *TRAN (IK ,IP,N)*COEFF  CIK) 
BRY (KT,N, IP) =BRY (KT ,N,IP) +B ACKC IK, IP, N> *CCEFF(IK) 
TRO YCKT , N , I K) =0.0 
BRCY (KT ,N , IK ) =0  .0 
44  CONTINUE 

TRA YCKT ,N) =TRAY  (KT,N) +TRY (KT ,N, IP)* COEFF ( IP) 

BRAY(KT ,N)=BRAY(KT,N) +BRY(KT,N,IP)*COEFF( IP) 

00  43  IK=1, MAXORO 

TRCY (KT , N, IK)  = TROY(KT,N,  IK) +TRA  N( IK, IP, N) *COEFF (IP) 
BRO  Y( KT ,N,IK) =BROY ( KT ,N, IK) +B ACK (IK , IP ,N> *COE FF (IP) 
43  CONTINUE 
46  CONTINUE 
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47  CONTINUE 
398  WRITE (5)  KT 

DO  75  N = lj  NSCATS 

WRITE (5) ( (TRAN (IK, IP, N) , IK  = 1 ,HAXORD) ,IP  = 1 ,M A XORD ) 

WRITEC5) ( (BACK(IK, IP, T) , IK=l,KAXORO>  , IP=1 , MA  XCRD) 

75  CONTINUE 

IF  (KPfiNT .EQ. 0 .ANO.ICPG.EQ. 0)  GO  TO  400 

PRINT  299 

PRINT  600,THK(KT) 

600  FORMAT (IX, ’THICKNESS  =’,E12.5) 

DO  601  IP= 1 , MA  XORD 

PRINT  6 02 , IP ,0 RONAT (IP) 

602  FORMAT(//lX, ’INCIDENT  DISCRETE  ORDINATE  NUMBE R* , 1 2 , 5X , ’COSINE  OF  I 

— tWCKENT  ANGLE  • *-**»•  E16  .•?/)  - - • - — 

DO  603  N=l, NSCATS 
PRINT  604, N 

604  FORMAT (/lX,’OROER  OF  SCATTERING  = ’ , I 5/ 1 X, * EX  IT  ORDINATE  NO.  = *,8H 

1 1 ,15X, *2*,15X,*3*, 15X  ,*4*,15X,*5* ,15X,*6’> 

605  FORMAT (IX, ’EXIT  COSINE  - * , 7X, 6E 1 6 . 9 ) 

PRINT  605,  (ORONAT(IK)  , I K= 1 ,H AXO RD) 

PRINT  6 06, ( T RAN (IK  ,IP,N) , I K= 1 , M A XORD) 

PRINT  607, (BACK ( IK, IF, N) , IK=l,MAXORD) 

606  FORMATdX, ’TRANSMISSION  =*  ,6X  , 6E16 . 9 ) 

607  FORMAT (1X,*BACKSCATTER  = * , 7 X, 6E1 6 . 9) 

603  CONTINUE 

601  CONTINUE 
400  KT  =KT  + 1 

IF  (KT.C-T.KMAX)  GO  TO  52 
KTOT=KTOT+IDT (KT) 

DTM=(THK(KT)-THK(KT-1 )) /FLOAT (IDT (KT) > 

48  T 1=T 

51  T=Tl+CTM 
K=  K + 1 

IF  (T.LF. THICK)  GO  TO  50 

52  CONTINUE 

IF(IDBG.EQ.O)  GO  TO  359 
PRINT  299 
2 99  FORMAT  ( *1  ’) 

PRINT  70 0 , M A XO RD 
NT=  1 

CALL  PPNTR(NT) 


PRINT  299 

PRINT  3 01 , MA  XORD 

NT-2 

CALL  PRNTP(NT) 

3 00  FORMATdX, ’TRANSMISSION  - 
1 DISCRETE  ORDINATES’) 

301  FORMAT ( IX , * BACKSCATTER  - 
101 SCRETE  ORDINATES’) 

PRINT  299 

DO  450  IP=1, MAXORO 
DO  440  KK=1, KMAX 
DO  44  0 NK-1, NSCATS 
TRAY  (KK  ,n;(  ) = TRY  (KK,NK  ,IP) 
BRAY(KK,NK)=BRY (KK,NK,IP) 
440  CONTINUE 

PRINT  430, ORONATt  IP) 


3 DIMENSIONAL  CALCULATION  WITH*, 13,* 
3 DIMENSIONAL  CALCULATION  WITH*, 13,* 
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430  F0RMAT(////////1X, ’TOTAL  TRANSMISSION  DUE  TO  SOURCE  WITH  INCIOENT 
1COSINE  = ’,E16.9> 

NT  =1 

CALL  PRNTR(NT) 

PRINT  431, ORONAT( IP) 

431  FORM AT (//////// IX, ’TOTAL  BACKSCATTER  OUE  TO  SOURCE  WITH  INCIOENT  C 
10SINE  = * ,E16.9) 

NT=? 

CALL  PPNTR(NT) 

450  CONTINUE 
PRINT  ? 99 

00  451  IK= 1 , MAXORD 
00  441  KK= 1 , KM AX 

00  '44  i NIC  = 1, NS  CATS 

TRAY(KK.NK) =T RO Y ( KK , NX, I K> 

BRAY (KK ,NK) =BROY (KK  ,NK, IK) 

441  CONTINUE 

PRINT  43?,0R0NAT (IK) 

43?  F0RHAT(////////1X, ’TOTAL  TRANSMISSION  WITH  EXIT  COSINE  ;*,E16.9> 

NT  = 1 

CALL  PPNTR(NT) 

PRINT  433, ORONA  T ( IK) 

433  F0RMAT(////////1X , ’TOTAL  BACKSCATTER  WITH  EXIT  COSINE  =-*,E16.9) 

N T=? 

CALL  PPNT  R<  NT) 

451  CONTINUE 
399  CALL  OSTBN 

GO  TO  500 
501  CONTINUE 
STOF 
ENC 


SUBROUTINE  G FI ( MA XORO  ,OR 0 ,F A , FB ) 
DIMENSION  FA (6,6)  ,FB(6,6)  ,CR0(6,3> 
DO  100  1=1 ,MAXORO 
00  100  J=l, MAXORO 
FA ( I , J) =F  B (I  ,J) =0.5 
100  CONTINUE 
RETURN 
ENO 
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SUGROUTINE  GF2(HAXORO,ORO, FA,FB) 

DIMENSION  F(12,12),0R0(6,3) ,0RDNAT(12) ,MX(3)  ,SRD(12) 

DIMENSION  FA (6,6) ,FPC6,6) 

DATA  PI/3. 141592653/ 

IM=HAXORO/2 
MQ=2*MAXORO 
00  101  1=1 , MAXORO 
ORCNATCI) =ORD ( I , IM) 

J=I-1 

ORONAT ( MQ-J) =-OPONAT(I) 

101  CONTINUE 

00  103  1=1, MQ 

SPO (I  )=  SORT  Cl. -ORONAT Cl)** 2) 

103  CONTINUE 

DC  102  1=1, MO 
ARC1=AC0S (ORONAT (I) ) 

DO  102  J=I, MQ 
F ( I , J)  = 0 . 0 

ARC=ACOS( ORONAT ( J) ) -ARC 

IF ( ABSC  ARC) .GE.0.5*PI)  GO  TO  104 

F(I,J)=1./PI 

TF= ORONAT Cl) *ORON AT ( J) / CSRO C I) *SRO C J) ) 

IFCAflSCTF) .LT.l .0)  GO  TO  114 
F (I , J)=ORDNAT  ( I)  *ORON  AT ( J) 

GO  TO  104 
114  CONTINUE 

PH  I =ACOS ( -TF) 

SP= SIN (PHI ) 

CP=COS(0.5*PHI) 

F(I,J)=  F(I,J)  * CSRO Cl) *SR0 ( J ) *SP*PHI*  ORONA  TCI) *ORDN AT CJ)) 

104  F (J,I)=F(I,J) 

102  CONTINUE 

106  FORMAT  (////////'» 

105  F0RMATC1X.6E16.9) 

DC  100  1=1, MAXORO 
00  100  J=l, MAXORO 
JM=MQ-( J-l) 

F A (I  , J)  =2  ,*F  (I,  J ) 

FOCI,  J)  =2.*F  (I,  JM) 

100  CONTINUE 
PRINT  107 

107  FORMATC/1X, ’SCATTERING  MATRIX  FIRST  QUADRANT  TO  FIRST  QUADRANT 

1*/) 

PRINT  105, CCFACI, J) ,1=1, MAXORO) ,J=l,MAXCRO> 

PRINT  106 
PRINT  108 

108  FORMATC/1X, ’SCATTERING  MATRIX FIRST  QUA ORANT  TO  SECONO  QUADRANT 

1*/) 

PRINT  105,  C(  FBC I, J> ,1  = 1, MAXORO)  ,J=1, MAXORO) 

RETURN 

ENC 
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SUBROUTINE  GF3(MAXORD,ORD,FA,FB,ETA> 

DIMENSION  F< 12,12) ,0RD(6,3> ,ORDNAT(12),HX(3) »SRD( 12) 

OIHENSION  FA (6,6) ,FB(6,6> 

OATA  PI/3.141592653/ 

IM=HAXORD/2 
MQ=2*MA  XORO 
DO  101  1=1 ,MAXORO 
0 RD  NAT  ( I)  = ORO  ( I , I M) 

J=I-1 

ORDNAT(MQ-J)  =-ORDN AT ( I) 

CONTINUE 

AK=ETA*(1.+0.5*ETA) 

DO  102  1*1, HQ 

DO  102  j*I  »MQ,  

TF=CRDN AT ( I)  "ORO NAT (J> 

BF=  (ORDNAT (I)-ORONAT ( J> ) ”2 

F (I, J)= (AK*( l.+ETA-TF)) / ( ( ET  A”2+ 2.  *ET A*(  l.-T  F)  + BF>  ”1  .5  > 
F(J,I)*F(I,J) 

CONTINUE 
FORMAT (////////) 

FORMAT (IX, 6E 16. 9) 

DO  100  1=1 .NAXORO 
DD  100  J= 1 ,M AXORO 
JM=MQ-(J-1> 

FA (I , J) =F (I , J) 

FB (I, J)=F( I, JM> 

CONTINUE 
PRINT  107 

FORM AT ( /I X, ’SCATTERING  MATRIX  FIRST  QUADRANT  TO  FIRST  QUADRANT 

1*/) 

PRINT  105,  ((FA(I,J)  , 1=1, MA XORO) ,J=1,HAXCRD> 

PRINT  106 
PRINT  108 

108  F0RHAT(/1X, ’SCATTERING  MATRIX  - -FIRST  QUADRANT  TO  SEOCNO  QUADRANT 
1*/) 

PRINT  105, ((FB(I, J),I=1,MAX0R0) ,J=1,MAXCRD> 

RETURN 

ENO 
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102 
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SUBROUTINE  DSTBN 

COMMON  THK (51) ,TRAN (6  ,6 , 10) , TR AN1 ( 6, 6, 10) , BACK< 6, 6 , 1 0)  ,BACK1 (6,6 
110) , F (6 , 6) ,PATHO,PATH (10)  ,TRAY(51,10> ,BRAY(51,10) ,C0EEF(6) , 
2OR0NAT (6) ,K , T,T 1 , KMAX ,MAXORD , NSC ATS ,TRY(5 1, 1 0 , 6)  , BRY ( 51, 10 ,6 ) , 
3TROT(51,10,6)  , BROY( 51 , 10 , 6)  ,FF(6,6> ,ADDUP(51> 

DIMENSION  WT(6,4) .TITLE <5, 4) 

OATA  TITLE/10HCOSINE  SOU.10HRCE  ,10H  ,10H 

1 *1  OH  *1 OHISOTROPIC  .10HSOURCE  ,10H  ,10H 

2 ,10H  / 

DATA  JSOURCE, NSOURCE/ 0, 2/ 

DATA  TWOPI/6. 283185307/ 

JSOURCE=0 

NSCURCE=2 

1 -BEX INC  .5  . . . . - - 

JSCURCE=JSOURCE+l 
5 RE  AC ( 5) THICK, KMAX, MAXORD , NSCATS 
IF  (EOF ( 5) ) 6, A 

4 READ15) (ORDNAT (I) ,CCEFF(I) ,1=1, MAXORD) 

READ ( 5)  (THK(I), 1=1, KMAX) 

DO  2 K= 1, KMAX 
A DDUP  (K  ) = 0 .0 
RE  AD( 5)  KT 
DO  10  N=l, NSCATS 

READ (5) ( (TRAN (I,J,N) , I=l,MAXORO) ,J=1, MAXORD) 

READ(5)  ( ( BAC  K( I , J, N) ,1=1, MAXORD) ,J  = 1, MAXORD) 

10  CONTINUE 
C 
C 

C SOURCE  WEIGHT  FUNCTION  LOOP 

DO  7 J=l, MAXORD 

IF ( JSOURCE.EQ.l) HT(J, JSOURCE) =2 .’ORDNAT ( J ) 

IF ( JSOURCE.EQ. 2)  WT ( J, JSOURCE) =1.0 
7 CONTINUE 
C 
C 

DO  15  N=l, NSCATS 
TRAY (KT ,N) =0.0 
BRAY(KT,N)=0.0 
DO  16  J=l, MAXORD 
TRY (KT,N,J)=0.0 
BRY(KT,N,J)=0.0 
DO  17  1=1, MAXORD 

TRY(KT,N,  J)=TRY(KT,N,  J)  +TR AN(  I,  J,  N>  *COEFF(I) 

BRY(KT,N, J)=9RY(KT,N, J)  + BACK (I , J ,N>  * CO  EFF  ( I) 

17  CONTINUE 

TR AY ( KT ,N) =TRAY ( KT, N) ♦TRYtKTjN, J) *COEFF (J) *WT (J , JSOURCE) 

BRAY (KT ,N)  =BRAY ( KT , N) +BRY ( KT, N, J) *COEFF( J) *WT(J, JSOURCE) 

16  CONTINUE 

ADDUP (KT) = ADDUP (K  T) + TRAY (KT ,N) *BR AY (KT,N) 

15  CONTINUE 

IF (JSOURCE.EQ.l)  ADD=E3 (THK (KT) )♦ 2, 

IF( JSOURCE.EQ. 2)  APD= E2 (THK (KT) ) 

ADDUP(KT)=AOOUP(KT) +AOD 

2 CONTINUE 

WRITE(3)KMAX,MAX0R0, NSCATS, JSOURCE 
WRITE (3) (THK (KK) ,KK=1,KMAX) 

WRITE (3) ( ( TRA Y(  KK,  N)  , KK=1, KMAX)  ,N=1,NSCATS> 
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WRITE(3)((BRAY(KK,N) ,KK= 1,KMAX) ,N=1,NSCATS) 

PRINT  20, ( TITLE (L, JSOURCE) ,L  = 1,  5) 

FORMAT(*l*,iX,5A10) 

FORMAT (*i* ) 

PRINT  300,MAXORD 
NT  = 1 

CALL  PRNTR (NT) 

PRINT  299 
PRINT  301,MAXORD 
NT  = 2 

CALL  PPNTR(NT) 

FORMAT (IX, ’TRANSMISSION  - - 3 DIMENSIONAL  CALCULATION  WITH*,  13,* 

10.XS££E?.g  .ORDINATES*!  „ .. . . 

301  FORMAT (IX,*  8ACKSCATTER  - - 3 DIMENSIONAL  CALCULATION  KITH*, 13,* 

10ISCPETE  OROINATES*) 

GO  TO  5 

6 IF (JSOURCE. LT.NSOURCE)  GO  TO  1 
RETURN 
END 
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f 


FUNCTION  E2(Z) 

CALL  EXPI (7, RES) 

E2  =EXP(-Z) -Z*RES 

RETURN 

FNC 


FUNCTION  E3(  Z) 
A=E2(Z) 

E3=C.5*(EXP(-Z)-Z*A) 

RETURN 

END 

| I 


1) 

' 

t 


✓"N 


SUBROUT  INE  EXPI(X,RES) 

IF(  X-l.)  2,1,1 

1 Y=l./X 

AlX=l.-Y+(  ( ( Y + 3.  377358E0)  * Y + 2 . 0 5 21 56E  0)  *Y  ♦ 2.  7 C9479E-  1)  /((((Y*  -F 

11.072553E0+5.716943E0 )* Y + 6 . 945239E 0 ) +Y  + 2. 593 888E 0) * Y + 2.7 09496E-1)  -F 

RES  = AUX*Y+EXP(  -X) 

RETURN 

2 IF(X+3.)6,6,3 

3 AUX  = (((((( (7.122452E-7*X-1.766345E-6)+X+2.928433E-5)  *X-2 . 335 379E-4  -F 
1)  *X+1.664156E-3)*X-1. 041576E-2)  * X+5 . 555  6e  2E-2)  + X-2 .5  00  00  IE-1 ) +X  -F 
2+9 • 999999E-1 

RES=-1.E75 

..  , .TF.(J0  4,5,4 ....  ....  . . 

4 PES=X+AUX-AUOG(ABS(X) )-5. 772157 E-l 

5 RETURN 

6 IF ( X + 9. ) 8 » 8>  7 

7 AUX=1  { <<(5.176245E-2»X+3.  0 61 0 37E 0 ) * X+ 3.  243 665E1 >* X+2 .244234 E2 ) +X  -F 

1*2.4866 97 E2)/( ( ( ( X+3 . 99 5 16  IE  0) * X + 3 . 8 9 3944  El) *X+ 2.  263  81 8E 1) *X  -F 

2+  1.  807837E2) 

GOTO  9 

8 Y=  9 . / X 

AUX=i.-YM ((Y+7.659824E-1)*Y-7.271015E-1>*Y-1.080693E0)/{{{(Y  -F 

1*2.518750E0+1.122927E1>+Y+5.921405E0)*Y-8.666702E0)*Y-9.724216E0>  -F 

9 RES = AUX+ EXP { -X) /X 

RETURN 

ENO 
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SUBROUTINE  INTGRL 

COMMON  THK(51) ,TRAN (6 ,6,10) ,T  RA Ni ( 6, 6f  10) , BACK (6, 6, 10 ) ,BACK1 (6,6, 
110)  ,F  (6  ,6)  , PA  THO,  PATH  (10),  TRAY  if  51, 10)  ,BRAY(51,10) ,COEFF( 6)  , 

2090NAT  < 6) , K, T,T1 , KM AX ,MAX0RD ,NSC ATS, TRY (51, 10 ,6) ,BRY(51, 10,6) , 
3TROY  <51  ,10  *6)  ,BROY  <51  ,10 ,6)  , FF  (6,  6)  , ADDUP  (SI) 

DIMENSION  TRSLP(6,6,10) , TRINT (6 , 6 ,1 0 > ,BKSLP(6 ,6 , 10 ) , eK  INT  (6, 6, 10 > , 
lTRl(lO)  ,TR2(10)  ,TRi*  ( 1 0) , TR5  { 10 ) , BK1 ( 10)  ,BK2(10)  , SUM <6, 6, 10) 

OATA  TNOP 1/6. 283185307/ 

IF(K.GT.l)  GO  TO  11 

DO  10  N=1,NSCATS 

DC  10  I K=1 ,MAXORD 

DO  10  IP=l,MAXORD 

TPAN(IK,IP,N>=BACK(IK,IP,N)=0.0 

J.Q  CONTINUE- . 

RETURN 
11  DT  = T-T 1 
T2=T**2 
T21=T1**2 
DT 2=(T2-T21)  /2. 

0T3=(T**3-T1**3) /3. 

DO  131  IK= 1 ,M AXORO 
ET2*EXP(-T/(PATH(1) *ORDNAT(IK)) ) 

00  131  IP=l,MAXORO 

IF (IP.NE,IK.OR.PA'iHC»NE.PATH( 1) > GO  TO  132 
TRAN(IK,IP,1)=  T*  FF  ( IK , IP)*ET2/ (PATHO*ORDNAT ( IK) > 

GO  10  130 

132  ETl  = EXP(-T/(PATHO*ORONAT(IP>  >) 

TRAN(IK ,IP,1)=  PATH0*0R0NAT(IK)*(ET1-ET2)*FF  ( IP , I K) / ( PA TH 0* 
10RDMAT(IP)-PATH(1>*ORONAT(IK>) 

130  CONTINUE 

BACK(IK,Ip.l)=  PATHO*F  ( IP, I K) *ORDNA T( I K)  / 

1 (PATH(l) *(ORDNAT(IK)+ORDNAT(IP))>* 

2 (l.-EXP(-T/PATHO*  Cl./ORDNAT(IP) ♦l./ORDNAT (IK) ) )) 

TRSIP(IK, IP,  1)  =(TRAN( IK, IP,1)-TRAN1(IK,IP,1)  ) /DT 

TRINT (I K,IP, 1)  =TR  AN (IK, IP, 1)-T*TRSIP (IK ,IP,1) 

BKSLP(IX,IP,  1)=  (BACK  (IK,  IP,1)  -B  ACK1  ( IK , IP  , 1)  ) /DT 
BKINT(IK,IP,1)  = BACK ( I K ,IP , 1 ) -T* BKSLP  (IK,IP,1) 

131  CONTINUE 

DO  500  N=2»NSCATS 


MTCF=N-2 

00  E .1  L = l,MAXORD 
PC=PATH(N)*ORONAT(L) 

P2=PATHO*  ORDNAKL) 

P02=P0**2 

P03=2.*P0*»3 

P22=p?**2 

ET B=EXP  (-T/P2) 

ETB  1=EXP ( -T1/P2) 

ET=EXP( T/PO) 

ET1=EXP  (Tl/PO) 

ETM=ET-ET 1 
ET  M 0= ET  01 *ET  B 

TERM1=(FO*T2-2.*P02*T+P03) *ET-(PO* T2i-2.*P02*T1+P0 S) *ET1 
TERM2=(P0*T-P02)  *ET- ( F0*T1 - P02 ) *E T1 
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DC  501  J=l,MAXOPO 

IF(K.EQ.2)SUM(L,J,N)=8ACK(L,J,N)=0.0 
P3=PATH0*0R0NAT  <J) 

P33=P3**2 

ETC=EXP<-T/P3) 

ETC1=EXP<-Tl/P3> 

FTMC=ET  Cl-ET C 

TERM6=( (P3*T1+P33>*  ETC1- <P 3*T +P 33) *ET C) 

TERH7=P3*ETMC 

TERHS=DT2 

TFKH9=rT 

IF(L.EO.J)  GO  TO  488 

P4=FO*ORONAT(J)*PATFO/ (P AT HC’ORON A T( J)-PO) 
ETT=EXP(T/P4) 

ETT1=EXP(T1/P4) 

P44=P4**2 

ETTM=ETT-ETT1 

TERH8=( (P4*T-P44)*ETT-(P4*T1-P44) *ETT1) 
TERhg=P4*ETTM 


4gg  00  502  1 = 1 » M A XORO 
TRS=TRSlP(I, J,N-1) 
TRI=TRINT(I,J,N-1) 


c 

c 

c 


StM(l,J,N)=SUM(L,J,N)  + 

TYFE1 

1(C0EFF( I) *FF(I,L> / ORONAT ( I )*( TRS* TERM2+TRI*TE RM3) /PATH  (N-l)  + 
TYPE3 


2C0EFF (X)*F (J  ,1) /(ORONAT (J)*PATHO>  * 

3 (BKSlP(l,I,N-l> *TERM8+BKINT(L,I,N-l)*TERHg>) 


C 

C 


C 

C 

C 


BACK  (I  , J,N)  = BACK(L,  J,M  ♦ 

TYPE  4 

1 (CCEFF(I)*F(1 ,1 > / (ORONAT (I)* PATH (N-l ) >* (TRS* TE RH4 +TR IMERM5 ) + 
TYPE  6 


2COFFF(I)*F(J,I)/(ORDNAT( J)*PATHO)  * 

3 (TRSLP(L,I,N-1) *TERM6»TRINT (L,I,N-1)*TERH7) ) 


C 

C 


IF ( N. EO .2)  GO  TO  502 


00  512  H= 1 » MT OP 
TR4(M)=TRSLP(I,J,M) 
TR5 (M)=TRINT (I,J ,M> 


I 

( * 

* 
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512  CONTINUE 


C 

00  503  IP=i , MAX0R0 
C 

00  513  M=1,MT0P 
BKi  (M)=BKSLP(L,IP,M) 

BK2(M)=BKINT<L, IP,M) 

TR1(M)=TRSLP(L,IP,M) 

TR2 (M)=  TRINT ( L» IP,M) 

513  CONTINUE 
C 

C0F=C0£FF< IP) *C0EFF( I)*F(I , I P) /OK ON A T(I)/PATH(M) 


00  504  H-  ,M  TOP 
NM-N-M-1 

T 14=TR4(NM) 

T 1 5=TR5 (NM) 

Tii=TRl  <M) 

B11=BK1 (M) 

'12=BK2 (M) 

1 v2*TR2 (M) 

SUM(L,J,N)=SUM (L ,J,N)4C0F* 

TYPE  2 

1 (T14*B11*TERM14(T15*B11+B12»T14) *TERM2+T15*B124TERM3) 

BACK(L,J,N)  = BACK.  (L|J,N)4C0F  * 

TYPE  5 

1 <T11*T14*0T3MT12*T14+T 15*T11) *DT 2+T12*Ti 5*0T) 

504  CONTINUE 
503  CONTINUE 
502  CONTINUE 

TRAN <L, J,N)=SUM(L,J ,N)/ET 
501  CONTINUE 

00  602  I=1,MAX0R0 
00  602  J=1 | MAXOR0 

TRSLP(I i J| N)  =(TRAN(I, J,N> -TRANi <1, J,N> > /OT 
BKSLP(I|J,N)=  <BACK<I,J,N)-BACK1  (I, J, N) )/0T 
TRINT Cl, J,N> =TRAN( I, J,N)  -T*TRSLP(I.J,N) 
BKINT(I,J,N)=BACK(I,J,N)-T*BKSLP(I,J,N) 

602  CONTINUE 
5 CO  CONTINUE 
RETURN 
END 


SUBROUTINE  PRNTR(NT) 

DIMENSION  IK (5) 

COMMON  THK151) ,T RAN (6,6, 10) , TRAN1 (6,6,10) , BACK (6 , 6 , 1 0) ,BACK1 (6 , 6, 
110)  ,F (6,6)  ,PATHO,PATH(10>  , TRAY  (51,  10)  , BRAY C 51 ,10)  ,C0EFF(6)., 
20RDNAT ( 6) , K, T, T1 , KM A X,M A XO RD ,NSC ATS , TRY (5 1 , 1 0 ,6) , BRY (51, 10 ,6 ) , 
3TROY (51 ,10,6) ,BR0Y(51 ,10 ,6) ,FF  (6,6) ,ADDUP  (51) 

Kl  = -4 
K2  = 0 

315  Kl=Kl+5 
K2P=K2 
K2=  K1 +4 

IF(K2P.LT.  NSCATS,  AND.  Ki.GT.NSCATS)  K2=NSCATS 
IF ( KZP. GE. NS  CATS ) GO  TO  316 
DO  310  1 = 1 ,KMAX 
IK ( 1) =K1 
DO  360  L=2  * 5 
IK(L)=IK(L-1)+1 
360  CONTINUE 

IF(I.EQ.l)  PRINT  361, (IK (L) ,L=1, 5) 

3 61  F0RMAT(7X,*T*,(ix,*N=*,4X,  18,4116) 

IF(NT.EQ.l)  PRjNT  321  ,THK  ( I ) , (TRAY  (I , NK)  , NK=K1 , K2) 

IF( NT.FQ.2)  PRINT  321 , THK ( I) , ( BRAY (I  ,NK) , NK=K  1,K2) 

321  F0RMAT(lX,E12.5|,5X,5Ei6.9) 

310  CONTINUE 
GO  TO  315 

316  IF(NT.EQ.l)  RETURN 
PRINT  317 

317  FORMAT(*l* ,6X,*T* , 16X ,*  TOTALS* ) 

DO  318  1=  1 , KMA X 

PRINT  319, AODUP ( I) 

318  CONTINUE 

319  FGSMAT(1X,E12.5,5X,E16.9> 

RETURN 

END 
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PROGRAM  FROM LM( I NPUT, OUTPUT, TAPE1 ,TAPE4,TAPE5) 

DIMENSION  OT (5>,NMAX(5),THKNSS(5) 

OIMENSION  ITER(5), £22(101) 

DIMENSION  PHP(iiO) 

COMMON  THICK, DEL T A, X, CONST 1, CONST 2, G A MM A , COR INT , IX,MAX,MTH,U1(16) , 
ill  2(32),  PH  I NP  1(1101  , PHINP2  (110)  ,XX(110)  » PO ( 11  0)  , PI  ( 110)  ,P2  ( 11 0) , 

2P 3(110) ,Q0(110),Q1(110), 02(110) ,03(110) , Fl( 16) , F2 ( 32) , G1 ( 16) , 

3G 2 (32), GRAND  2 (16) ,XPV1( 16)  ,X»Y2(32) ,XMY1?16)  ,XMY2(32) ,GX1 (16), 
4GRAN01 (16) 

COMMON/GAUSQ/HK  16)  ,W2(16)  ,AW1  (16)  ,A M2  (32) 

COMMON/FLX/ETRANdOl)  ,EBACK  (101)  ,TFAC(101)  jBFAC(lOl) 

GAMMA=0. 5772156649 
CALL  GCOEFF 
MT  H=2 

REAO  11,NTHK, (THKNSS(I) ,1=1, NTHK) 

NTHK  - NO.  OF  SLAB  THICKNESSES  TO  BE  CONSIDERED 
THKNSS(I)  - SLAB  THICKNESSES  (MFP) 

NM AX  - NO.  OF  POINTS  INSIDE  SLAB  AT  WHICH  PARTICLE  OENSITY  IS 
TO  BE  EVALUATEO 

ITER  - NO.  OF  SCATTERING  OROERS  TO  BE  CALCULATED  FOR  A GIVEN 
SLAB  THICKNESS 

NS  K - OFT  ION  PARAMETER  FOR  SOKOLOV  CONVERGENCE  ACCELERATION 
REAO  10, (NMAX(NT) ,ITER(NT) , NT=1 , NTHK) 

READ  10 , NS  K , NRUN 
MSK  = i 

IF(NSK.NE.O)  MSK=2 
IF(NRUN.EQ.O)  GO  TO  150 

149  REA0(4)TKK,NPTS 
IF  ( EOF ( 4) ) 150,151 

151  REAC(4)  (TFAC(K),K=1,NFTS) 

RE  AO ( 4)  (BFAC(K)  ,K=1,NFTS) 

WRITE(5)TKK,NPTS 

WRITE (5) (TFAC(K) ,K=1,NPTS) 

WRITE (5) (BFAC(K) , K=1,NPTS) 

GO  TO  149 

150  CONTINUE 

10  FORMAT(16I5) 

11  FPRWAT(I5,5F10.0) 

00  200  NT  = 1, NT HK 
REWIND  1 
THICK=THKNSS (NT) 

IT  = ITEF ( NT) 

MAX=NMAX (NT) 

XX  (1)=0 .0 

DT(NT)  = THKNSS(NT) /FLOAT (NM AX  (NT)-l) 

0=0T(NT) 

DO  101  1=2, MAX 
XX ( I) =XX( 1-1) +0 

101  continue 

K=  0 

IHIT=0 

PRINT  55 ,THKNSS ( NT) ,K,IHIT 
00  102  IX= 1 , MAX 
X=  XX(IX) 

E22 (IX) =F2 (X) 

TX=THICK-X 

BF  AC ( IX ) =E  22  ( IX ) 
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TFAC(IX)=E2(TX) 

PHINPK  IX)  »PHINP2(IX)=PHP(IX)=E22(IX> 

102  CONTINUE 

WRITE (1 )HA  X 

WRITE ( 1) (XX(I) ,1=1, WAX) 

WRITE(l)  (PHINPK I)  ,1  = 1,  MAX) 

WRITE(l) (PHINP2(T) ,1=1, MAX) 

K=1 

PRINT  55,THKNSS(NT)  ,K,IHIT 
IHIT=0 

55  FORMAT (1X,*THICKN ESS  =*,  E12. 5, 5X, 'ITERATION  NO. *, 16 *5X,* IHIT  =',I 
16) 

00  1 IX=1, MAX 
X=XX(IX) 

CALL  START 

CALL  TYPE1(1,QSP1,QSPF1) 

CALL  TYPE  1 !2 ,QSP2 ,QSPP2) 

CALL  TYPE2( 1, QREG 1, QREGP 1) 

CALL  TY  FE2 (2 ,QREG2  ,QREGP2) 

PHINPK  IX)=E22(IX)-0, 5' ( QREG1  + QREG  2-QSP1-QSP  2) 

IF(NSK.EQ.O)  GO  TO  1 

CORINT=0.5'(QSPPKQSPP2-QREGP1-QREGP2) 

CALL  SOKOL(K,CORR) 

PHINP2( IX) =PHINP1 (IX) *CORR 
1 CONTINUE 

00  111  1=1, MAX 

IF(PHINPKI)  .LT.O.O)  GO  TO  112 
IF(PHINPKI)  .LT.PHP(I))  GO  TO  112 

111  CONTINUE 
GO  TO  113 

112  IHIT=I 
ISAFE=IHIT-6 

IF (ISAFE.LT. 0)  CALL  CRASH 
IS=ISAFE*1 

RT  IO=PH  INPKISAFE  )/PHP(ISAFE) 

00  114  I*IS,MAX 
PHINPK  I)  =RT  10'PHP  (I) 

114  CONTINUE 

00  115  1=1, MAX 
PHP(I)=PHINP1(I) 

115  CONTINUE 

113  CONTINUE 

WRITE  (1MPHINPKI)  ,1=1, MAX) 

WRITE (1) (PHINP2(I) ,1=1, MAX) 

00  50  K=2,IT 

PRINT  55, THKNSS(NT) ,K,IHIT 
IH IT  =0 

CALL  INTERP(XX,PHINP1,P0,P1,P2,P3,MAX) 

CALL  INTERP (XX,PHINP2 ,Q0 ,0 1,Q2, Q3, MAX) 

57  FORMAT (IX, 4E16  .9) 

00  12  IX=1  ,M AX 
00  40  MTH=1, MSK 
X=XX(IX) 

CALL  RESET 

CALL  TYPEK1 , QSP1 , QSPF1) 

CALL  TYPE1 (2,QSP2,QSPP2) 

CALL  TYPE2 (1, QREG1, OREGP 1) 


CALL  TYPE2(2,QREG2,0REGP2) 

IF(HTH.EQ.2>  GO  TO  *1 

PH INPlt IX) *E22( I X) -0. 5*{  QREG1+QREG2-QSP1-QSP2) 

GO  TO  40 

41  CORINT=0.5*(QSPP1*QSPP2-QREGP1-QREGP2) 

CALL  SO KOL ( K ,CORR) 

PHINP2  ( IX )=E22 (IX) -0.5* (QREG1*QREG2-QSP1-QSP  2) *CORR 
40  CONTINUE 
12  CONTINUE 

00  211  1=1, MAX 

IF(PHINPKI)  .LT.0.0)  GO  TO  212 
IF(PHINPKI)  .LT.PHP(D)  GO  TO  212 

211  CONTINUE 
GO  TO  213 

212  IHIT-I 
ISAFE=IHIT -6 

IF (ISAFE.LT. 0)  CALL  CRASH 
IS=  ISAFOl 

RTI0=PH1NP1 (IS  AFE )/PHP ( ISAFE) 

DO  214  I*TS,MAX 
PHINPt(I)=RIIO*PHP(I) 

214  CONTINUE 

00  215  1=1, HAX 
PHP(I)=PHINP1(I) 

215  CONTINUE 

213  CONTINUE 

WRITE (1) (PHINPl(I) ,1*1, MAX) 

WRITE (1) (PHINP2(I),I*1,HAX) 

2 F0PHAT(1X,*X  = * , E16. ®,  * PHI(N)=  *,E16.0) 

50  CONTINUE 
REWIND  1 

CALL  PRCC (NTHK.NT , THKNSS , ITER ,NSK) 

200  CONTINUE 
STOP 
ENO 
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SUBROUTINE  SOKOL (K,CORR) 

COMMON  THICK, OELTA, X, C0NSTi,C0NST2, GAMMA, CORINT, IX, MAX ,HTH,U1 (16) 
1U2  (32) ,PHINP1 (110),PHINP2(ii0), XX { 11 0) ,P0 ( 110) , Pi (11 C) ,P2( 110) , 
2P3 ( 110) ,Q0(ii0),Ql (110), Q2 (110) ,03(110) ,F 1(16), F2( 32), G1 (16) , 

3G2 ( 32) , GRAND 2 (16) ,XPY1 (16) , XPY2 (32) , XMY1 ( 16)  , XM Y2( 32) , GX1 ( 16) , 
4GRAN0K  16) 

COMMON/GAUSQ/Ml (16) ,M2(16) ,AH1 (16) ,AM2(32) 

H=XX(2)-XX(1) 

KOOE»1 

IF (K-2) 1,2.3 

1 IF(IX.NE.l)  GO  TO  11 
TK=THIC< 

CALL  EXPI (TK, RES) 

E3= -0. 5* ( (THICK-1. 0 )*EXP ( -THI CK) -(THICK**2)*RES) 

EYE0=THICK-0.5+E3 
AL1»1. 0/(1. 0-0. 5/E3) 

11  corr=ali*corint 
RETURN 

2 IF  ( IX.NE.  1)  GO  TO  21 
CALL  TYPE3 (H,KODE,EYEl) 

E YNM2=E  YE0 

EYNM A=FYE  1 

AL2=(EYE1-AL1*EYE0) /(THICK-EYE  0) 

ALKM1=AL2 

21  CORR=AL2*CORINT 
RETURN 

3 IF (IX.NE.l)  GO  TO  31 
EYNM2=E YNM1 

CALL  IYFE3 (H.KOOE, EYNM1 ) 

ALN=(EYNM1-EYNM2- ALNMl’EYEO )/(THICK-EYE0) 

ALNM 1=ALN 

31  CORR=ALN*CORINT 
RETURN 
ENO 


SUBROUTINE  T YPE3(H»KOOE  ,Q) 

COMMON  THICK, DELTA,  X, GONST1 , CONST 2 ,G AMM A,CORINT , IX  , M AX »MTH ,Ul (16) , 
1U2  (32) * PH INP1 (110),PHINP2(110) ,XX (11 0) ,P0 (11 0) ,P1 (1 10) ,P2( 11 0* , 

2P3 (110) *Q0 (110) ,Q1 (110),Q2(110) , Q3 (110) ,F1(16> ,F2(32> ,G1(16>  , 

3G  2 ( 32) * GRAN02( 16) ,XPY1(16) ,XPY2 (32) ,XHY1 (16) ,XMY2 (32  > , GX1 ( 16 ) , 
4GRANDK  16) 

COHMON/G AUSQ/H1 (16) ,W2(16> ,AH1(16) ,AW2(32) 
COMMON/FLX/ETRAN(101),EBACK(101),TFAC(101> ,BFAC(101) 

DIMENSION  TS  (101) 

Q=0  .0 

H3=H/3. 

M 1=MA  X-  1 
00  50  1=1  , MAX 
TS ( I) =1 . 0 

IF(KODE.EQ.l)  TS(1)=2.-TFAC(I)-BFAC (I) 

50  CONTINUE 

GO  TO  (10,12,13)  ,KO0E 

12  00  120  1=1, MAX 
PHINP2(I)=ETRAN(I) 

120  CONTINUE 
GO  TO  10 

13  DO  130  1=1 ,M AX 
PHINP2 ( I ) =EB ACK( I) 

130  CONTINUE 

10  DO  1 1=2, Ml, 2 
Q=C+4.*H3*PHINP2(I) *TS(I) 

1 CONTINUE 
M2=MAX”2 
DO  11  1=3, M2, 2 
Q=Q+2.*H3*PHINP2(I)*TS(I) 

11  CCNTINUE 

0=Q+H3* (PHINP2(1)*TS(1)+PHINP2(MAX) *TS(MAX)  ) 

I F(  KOOE.EQ.l ) Q=0  .5*0 

RETURN 

ENC 
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SUBROUTINE  RESET 

COMMON  THICK, DELTA, X, CONST  1, CONST 2, GAMMA, CORINT, IX, MAX,MTH,Ui(16) , 
1U2  C32), PHINP1 (11 0) , PH INP2( 110) , XX( 11 0) ,P0 (11 0) ,P1( 11 0)  ,P2( 11 0) , 
2P3(  110)  ,Q0 (110) ,01(110) ,Q2 (110) ,Q3 (110) ,F1 (16 ) ,F2 ( 32) , G1 (16), 
3G2(32), GRAND 2(16) ,XPY1 (16) , XPY2 ( 32) , XHY1 ( 16) , XMY2 (32 ) , GX1 ( 16) , 

4G  RANOl  ( 16) 

COMMON/GAUSQ/H1 (16),H2(16),AH1(16),AH2(32) 

DIMENSION  XRAY(112) ,FR(112) 

EQUIVALENCE (F 1(1) ,FR (1 ) ) , (XPY1 (1),XRAY(1)  ) 

DELTA=THICK-X 
U0=CONSTl=CONST2=0.0 
IF(OELTA.EQ.O.O)  GO  TO  3 
CONSTl=GAMMA+ALOG (DELTA) 

IF  ( X • EC  .0.0)  GO  TO  3 
CONST 2=GAMMA+ALOG(X) 

U 0=X/OE  LT  A 

3 DO  2 1=1,16 

XPY 1(1) =OELTA* (U1(I)+U0) 

XMY1  (I)  = X*  (1 . -U1  ( I)  ) 

2 CONTINUE 
DO  4 1=1,32 

XPY2(  I)=DELTA*(0.5*(1 .+U2(I)) *U0) 

XMY  2 ( I) =X* <1.-0. 5* (1.+U2 (I))) 

4 CONTINUE 

DO  51  J=l, 112 
DO  52  M=1 , MAX 

IF(XRAY (J) . LT «X X (M)  ) GO  TO  53 

52  CONTINUE 
XRAY(J)  =XX  (MAX) 

IF (MTH.EQ. 1)  FR( J)=PHINP1 (MAX) 

IF(MTH. EQ.2)  FR( J) *PH INP2 (MAX ) 

M ARK=MAX 
GO  TO  51 

53  MARK=M-1 

IF  (MARK • NE. 0 ) GO  TO  54 
XR AY( J) =XX(1) 

IF(MTH.EQ.l)  FR( J) =PH INP1 { 1) 

IF(MTH,EQ.  2)  FR(J)=PHINP2C) 

GO  TO  51 

54  XDIF=XRAY( J) -XX(MARK) 

GO  TO  (48,49) ,MTH 

48  FR(  J)=P0(MARK)+P1(MARK)  * XO IF*P 2< MARK)  *XCIF**2+P3  (MARK) *X  OIF* *3 
GO  TO  51 

49  FR ( J ) = O 0 (M ARK ) +Q1 (MARK) *X0IF  + Q2( MARK) *X0IF**2+Q3(MARK) *X0IF**3 
51  CONTINUE 

RETURN 

END 
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SUBROUTINE  TYPEKN,  Q,  QP) 

COMMON  THICK, DELTA, X ,C0NST1 ,C0NST2, GAMMA, CORINT , IX ,M AX ,KTH ,U 1 (1 6) , 
1U2  ( 32) , PHINP1 (110) ,PH INP2  (110), XX( 11 0) ,P0(110) , PI (110)  ,P2(110) , 
2P3(110) ,Q0 (110), Ql( 110) ,02(110) ,03 (110), FI (16), F2 (32), 61(16) , 

3G2  ( 32) , GRAND  2(16)  , XPV1  (1  6) , XPY2  ( 32)  , XHYK16)  ,XMY2(32)  ,GX1(16)  , 
4GRANDK  16) 

COMMON/GAUSQ/H1 (16) ,H2(16) ,AH1 (16),AM2(32) 

0=0.0 

QP=0.  0 

IF(IX.EQ.1)X=0.0 
IF ( IX.EO. MAX) OE  LT  A=0 • 0 
00  1 1=1,16 
GO  TO  ( 2, 3) ,N 

2 T=AHKI)*0ELTA 
Q=Q+Fi(  I)*T 
IF(MTH.EQ.l)  GO  TO  1 
QP=QP»T 

GO  TO  1 

3 T=AN1(I)*X 
Q=QfGl(I)*T 

IF (MTH.EO.l)  GO  TO  1 
QF=QP+T 
1 CONTINUE 
RETURN 
ENO 


SUBROUTINE  GCOEFF 

COMMON  TH ICK, DELTA, X, CONST1, C0NST2, GAMMA, CORINT, IX, MAX, MTH, Ul( 16), 
1U2(32) ,PHINP1 (110) ,PHINP2(110),XX(110),P0(110),P1(110) ,P2(110) , 

2P3 ( 110) ,Q0 (110) ,Q1 (110) ,02(110) ,Q3 ( 11 0) ,F 1 (16) ,F2(32) , G1 (16) , 
3G2(32) , GRAND 2(16) ,XPY1 (16) ,XPY2 (32) , XMY1 ( 16) , XMY2(32) ,GX1(16) , 
4GRAN0K  16) 

COHMON/GAUSQ/Ml (16)  ,M2(16)  ,AH1 (16) ,AM2(32) 

READ  1, (Hl(I), 1=1, 16) 

READ  1, (A  HI (I), 1 = 1, 16) 

HI (I) , AHl(I)  - GAUSS  QUADRATURE  ORDINATES ( HI)  AND  COEFFICIENTS 
( AH  1)  FOR  THE  LOGARITHMIC  INTEGRAL. 

THESE  ARE  OBTAINEO  FROM  ’GAUSSIAN  QUADRATURE 
FORMULAS*  BY  A.H.  STROUD  AND  0.  SECREST, 

PRENTICE  HALL  (1966),  PAGE  304  AND  ARE  READ  IN 
ASCENOING  ORDER  OF  HI. 

READ  1 , ( H 2 ( I) ,1=1,16) 

READ  1, (AH2(I), 1=1,16) 

H2 ( I) ,A H2( I) - GAUSS  QUADRATURE  ORDINATES (H2)  AND  COEFFICIENTS (AH2) 
FOR  THE  NON-LOGARITHMIC  INTEGRALS. 

THESE  ARE  OBTAINED  FROM  ’GAUSSIAN  QUADRATURE 
FORMULAS’  BY  A.H.  STROUD  AND  0.  SECREST, 

PRENTICE  HALL  ( 1966),  PAGE  105  AND  ARE  READ  IN 
ASCENOING  ORDER  OF  H2. 


1 FORMAT ( 4F20. 0) 

00  2 1*1, 16 
GRAN01(I)=AH2(I) 

2 CONTINUE 
RETURN 
ENO 
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SUBROUTINE  START 

COMMON  TH ICK, DELTA, X, CONST  1, C0NST2, G AMMA.COR INT ,IX,M AX, HTH,U 1(16) , 
1U 2(  32)  , PHINPl(llC)  ,PHINP2  (110  ) ,XX  (11 0 ) , FO  (110  ),  Pi  (11 0)  ,P2 (11 0)  , 

2P3 ( 110) ,Q0(110), Q1(110),Q2(110)  , Q3(110) ,F1 (16)  , F2 (32 ) , G1 (16) , 
3G2(32)  , GRAND  2 (16)  ,XPY  1(16)  , XPY2  (32)  , XMYK16)  ,XMY2  (32)  , GX1  (16)  , 
4GRAND1 (16) 

COMMON/GAUSQ/Hl (16) ,W2(16) , AMI (16) ,AW2(32) 

OELTA=THICK-X 
IFL AG=1 

IF(IX.EQ.l)  IFLAG=2 
IF(IX.EQ.MAX)  IFLAG=3 
DO  1 1-1,16 
U1 (I)=W1(I) 

U 2(  I)  *W2(17-I> 

U2(I*16)=-W2(I> 

AW2(I)  =GRAND1(  17-1) 

AH2(I*16)=GRAND1(I) 

1 CONTINUE 

GO  TO  (4,5,6) , IFLAG 

4 UOsX/DELTA 

CON ST1= GAMMA ♦A LOG (DELTA) 

CONST  2» GAMMA ♦A LOG (X) 

GO  TO  3 

5 U0=CONST2=0 • 0 

CONST l=GAMMA*ALOG (OELTA) 

GO  TO  3 

6 U0=CONSTi*0.0 
CONST2=GAMMA*ALOG(X) 

3 DO  2 1*1,16 

XPY1(I)=0ELTA*(U1(I)  HIO) 

XMY1(I)=X*(1.-U1(I) ) 

FI  (I)=E2(XPY1(I) ) 

G1(I)=E2(XMY1(I)) 

2 CONTINUE 

DC  8 1=1,32 

XPY2(I)=DELTA*(0.5* (l.*U2(I) )+U0) 

XMY2( I) =/*(l ,-0  «5*( 1 . +U2 (I))) 

F2(I)=E2(XPY2(I)) 

G2(I)  = E2( XMY2( I)  ) 

8 CONTINUE 
00  7 1=1,16 
GX1  (I)=THICK*H2 (I) 

GX2=THICK-GX1( I) 

7 CONTINUE 
RETURN 
END 


151 


SUBROUTINE  TYPE2 (N,  Q,  OP) 

COMMON  THICK, DELTA, X.CONST1 ,C0NST2,  GAMMA, CORINT,  IX,  MAX, MTH,U1<16) , 
1U2( 3 2), PHI NP 1(110), PHINP2 (110), X/ (110) ,F0 <110 ),P 1(110) ,P2(11C)  , 

2P3 ( 110) ,00(110) ,Q1(110) ,Q2  (11 0 ) ,QJ (110 ) , FI (16) , F2( 32) , G1 ( 16) , 
3G2(32),GRAN02<16) ,XPY1(16) ,XPY2C!2) ,XMY1(16> ,XMY2 (32) ,GX1 (16) , 
4GPAN01 (16) 

COMMON/ GAUSQ/Wi (16) , N2(16) , AN1( 16) ,AH2(32) 

DIMENSION  F( 32) ,U(32) 

IF(IX.EQ.1)X=0.0 
IF(IX.EO.MAX)OELTA=0.0 
GO  TO  (100  , 200), N 

100  DO  101  1=1,32 
F(I)  = F2(I) 

U(I)=U2(I) 

101  CONTINUE 
0=DELTA 
C=C0NST1 
GO  TO  10 

200  DO  201  1=1,32 
F(I)=G2  (I) 

U(I  )*U2  (I) 

201  CONTINUE 
0 = X 

C=C  CNST2 
10  0=0.0 
QP=0. 0 

IF(C.EQ.O.O)  RETURN 
DO  1 1=1,32 
Q=Q*AN2(I)*F(I) 

IF(MTH.EQ.l)  GO  TO  1 
QP=QP+AW2(I) 

1 CONTINUE 
Q=Q*D*C*0. 5 
QF=CP*D*C*0.  5 
SUMFR=0 .0 
11=12=0 
SUM=0.0 
FAC=D 

DO  2 J=l,60 

IF (II. EQ. l.ANO. I2.EQ. 1)  GO  TO  5 
FJ=FLOAT( J) 

ENTGL=0 . 0 
ENT  GL 1=0. 0 
DO  3 1=1,32 

T=AH2(I)M0.5*(1.*U(I)))**J 
l'(Il.EC.l)  GO  TO  31 
ENTGl=ENTGL+F(I)*T 
31  IF (MTH. EQ. 1. AND .Il.EQ.l)  GO  TO  5 
ENTGLi=ENTGL  1+T 
3 CONTINUE 

FAC=-FAC*D/FJ 
FIC=FAC/FJ 
SUM=SUM*FIC*ENTGL 
SUMPR=SUMPR+  FIC’E  NTGL1 
IF(Ii.EQ.i)  GO  TO  32 
SUMF= ASS (SUM) 

0 IF= ABS (FIC*ENTGL) 
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IFCCIF.LE. C SUMP*1 .E-9 > ) Ii«i 
32  SUHPRP=  ABS (SUMPR) 
OIFP=ABS(FIC*ENTGLi> 

IF  C CIFP.LE. (SUMPRP* i .E-9) > 1 2“ i 
2 CONTINUE 
5 Q=0*0.5*SUM 
QP=QP*0 »5*SUMPR 
RETURN 
END 


FUNCTION  E2(Z) 

CALL  EXot(Z.RES) 

E?  =Exp(-Z)-Z*RfS 

RETURN 

ENO 


SUBROUTINE  EXPKX.RES) 

IF(x-1.>?.1»1 

1 Y=l./X 

AUX=l.-Y*f  C .<YO,377T';eEO>*Y*2.052l56EO>*Y*2i709479£-l)/(  c C CY* 
11.0'»H553'r0*5.7Ift^43f:0)*Y*6.9AS23;*E0)*Y*2.S93afl8E0j*Y^Zi709<,96E-l) 
RESsAUX*Y*EXP<-X) 

RETl-RN 

2 IF(xO.)f»6»3 

3 AUX=( (( ( ( ( (7. 12?AS2E-7*X-1.76fc3ASE~6)*X»2.928<P'  *X-2.335379E-4 

I)  *X»1 .66A156E-3)  *X-1 .0M576E-?>*X''5.5s5682E-2)  yQOOOit-1 ) *X 

249.o9R99t.Z-l 

RES=-J.E75 

IF(x)A.S.A 

9 RES=X*AUX-ALOGCaBsIX)  >-5.7721i>?E-l 

5 RETURN 

6 IF (X*9. ) R»8»7 

7 AUX=l.-( < C (5.1762a5E-?*X*3.061037E0)*X*3»2A3665E1)*X42.26923A£2)*X 
l*2.486697E2)/<  C < < X*T. 99Fl61E0» *X43.8939AAE1 ) *X42.2638i8El ) *X 
2*l.R07837E2) 

GOTn'9 

8 Y=9./X 

AIJX=l.-Y*(((Y47.6^9A?Ar-l)*Y-7.271015E-l)*Y-1.080693EO)/cCC<Y 
H?.Sl875PE0*l.lP2927?-l ) *Y45.92iAo5FO>  *Y’*8.666702£0)  *Y”9. 72921 6E0) 

9 RESrAl|X*cXP(-X)/X 
RFTtjPN 

END 
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SUGKOUT INE  PRPC (NTHK , NT, THKNSS, ITER, NSK) 

DIMENSION  TRAN(50) ,BACK(50) 

DIMENSION  XX (101) ,PHI (101 ,51) ,DPHI (101,50) , THKNSS (5) ,ITER<5> 
DIMENSION  PHO (101,51) 

DIMENSION  I<(6) 

COMMON/FLX/ETRAN (101) ,E8 ACK  (10 1 ) , TFAC ( 101) ,BFAC(101) 

PRINT  4 

IT=  IT  £R  (NT)  +1 

KCR=0 

PRINT  11,THKNSS(NT) 

11  FORHAT(lX,*THICKNESS=*,E12.5///> 

READ  (1)  MAX 

READ  (1)  (XX(I> ,1=1, MAX) 

H = X X ( 2)  XX(1) 

TH I CK= THKNSS (NT) 

IT1=ITER(NT) 

DO  SI  K=l,m 
TRAN(K)=BACK(K)=0.0 
91  CONTINUE 
DO  1 K=l, IT 

REAC(l)  (PH  1(1, K) ,1=1, MAX) 

READ(l) (PHO( I,K)  ,1=1, MAX) 

1 CONTINUE 

38  KCR=KCR+1 
IF(KCR.EQ.l)  GO  TO  40 
IF(NSK.EQ.O)  RETURN 
DO  30  1=1, MAX 

OO  30  K=1 , IT 
PHI  (I  ,K )=  PHO  (I,K ) 

30  CONTINUE 
PRINT  14 

14  F0RMAT(*1»,1X,*FLUX  (SOKOLOV  MET40D)  */) 

GO  TO  39 

4C  CONTINUE 
PRINT  12 

12  F0RMAT(1X,*FLUX*/) 

39  K l*-5 

15  K1=K1*6 
K2=K1*5 

00  10  1=1, MAX 
MK  = 6 

IK(1)=K1-1 

DO  60  L=2 ,6 

IK(L)*IK(L-1)+1 

IF  (IK  (L  ) .GE.  IT)  GO  TO  62 

60  CONTINUE 
GO  TO  63 

62  MK=  L- 1 
K 2=  IT 

63  IF(I.EQ.l)  PRINT  61 , (IK (L) ,L=1,MK> 

61  F0RMAT(7X,*X*,6X,*N  =*,4 X, 18 , 51 16) 

PRINT  21, XX (I) ,(PHI(I,K) ,K=K1  ,K2) 

10  CONTINUE 

DPTMT  7 

IF (K2. LT. IT) GO  TO  15 
21  FORMAT ( IX, E12*5,  5X, 6E16*  9) 

3 FORMAT ( ///// ) 


— 


. 


<t  FORMAT (*1*) 

PRINT  It 
I 1= IT-1 

IF ( KCR. EQ. 2)  GO  TO  50 
PRINT  13 

13  FORMAT! IX, *FLUX  OIFFERENC*  “ 

16  FORMAT! IX, '(SOKOLOV  METHC  : 

DO  5 <*1,I1 

00  6 1*1, MAX 
IF(K.GT.l)  GO  TO  17 
OPHI (I, 1)*PHI(I,  1) 

GO  TO  18 

17  0PHI(I,K)*PHI(I,K)-PHI(I,K-1> 

18  ETRAN(I)*  TF AC ( I) *OPHI ( I ,K  ) 

EBACK  (I )=  0F AC  (I) *OPHI( I, K) 

6 CONTINUE 
K00E=2 

CALL  TYPE3(H,K00E,TR) 

K00E=3 

CALL  TYPE3  (H,KOOE»BK) 

TRA  N(K+1) =TR 
BACK (K+1)*BK 

TRAN(l) *0.5* (EXP (-THICK)  -THICK*E2 (THICK) ) 

BACK ( 1) *0 • 0 
5 CONTINUE 
Kl*-5 

25  K1*K1»6 
K2*K1  *5 

IF(K2.GE.I1)K2=I1 
00  7 1*1, MAX 

PRIN'i  21,XX(I),  (OPHI  ( I ,K  ) ,K*K  1 ,K  2) 

7 CONTINUE 
PRINT  3 

IF(K2.LT.I1)  GO  TO  25 
PRINT  I* 

PRINT  55 

95  FORMAT ( IX , *OROER  OF  SCAT  TARING* , 10X, 'NUMBER  T RANSMITTED* ,10X ,*NUMB 
1ER  BACKSCATTEREO*//) 

00  96  K= 1 , IT 
TRAN(K) =0.5*TRAN(K) 

BACK(K)*0.5*  BACK (K) 

M*K-1 

PRINT  97,M,TRAN(K),BACK(K) 

96  CONTINUE 

97  FORMAT (1X*I10»20X,E16«8»16X,E16.8) 

MRITE (5)THKNSS (NT) ,IT 

WRITE (5 ) ( TRAN ( K*  * K=  1,  IT) 

MRITE (5) (BACK(K)»K=1,IT) 

GO  TO  38 
50  RETURN 
ENO 
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SUBROUTINE  INTERP ( X, Y, PO , PI , P2 , P3 , NMAX) 

DIMENSION  X(i) ,Y (1) ,P  0( 1 ) ,P 1 ( 1) ,P2 <1 ) ,P3 (1 ) 

DIMENSION  JSAVE(4),KSAVE(4),S(4) 

DATA  ID 06/0/ 

IF (NMAX. 6E. 5)  GO  TO  1 
PRINT  100, NMAX 

100  FORMAT (IX ,#NMAX (* , II*  ) LESS  THAN  5*) 

RETURN 

ENDPOINTS 

1 NTEMP-NMAX+4 
X3=X  ( NMAX) 

X2=X (NMAX-1) 

Xl=X(NMAX-2) 

Y3=Y (NMAX) 

Y2=Y(NMAX-1) 

Yl= Y (NMAX-2) 

X (NTEMP-H=X3  + X2-X1 

Y ( NTEMP -1  ) = ( X2-X 1)  * ( 2 •* (Y3-Y2)/ (X3-X2)-  (Y2-Y1 )/ ( X2-X1) 
X ( NTEMP )=X( NTEMP-l) +X3-X2 

Y ( NTEMP)=(X3-X2)*(2. • (Y (NTEMP “1 ) -Y3 ) / (X (NTEMP-l) -X3) - 
1 (Y3-Y2)/( X3-X2)  I +Y( NTEMP-l) 

NM=NMAX+1 

DO  2 N=1,NMAX 

X(NTEMP-N-1)=X(NM-N) 

Y (NTEMP-N-i)=Y(NM-N) 

2 CONTINUE 
X1=X<5) 

X2=  X ( 4) 

X3=  X ( 3) 

Yl= Y ( 5) 

Y2=Y(4) 

Y 3=Y ( 3) 

X4-X3+X2-X1 

Y4= (X2-X1) * ( 2 •* (Y3-Y2)/(X3-X2)-  (Y2-Y1)/ (X2-X1))+Y3 
X5=  X4+X3- X2 

Y5=  (X3-X2)*(2.*(Y4-Y3)/(X4-X3)-<Y3-Y2)/(X3-X2))*Y4 
X ( 1)  = X5 
Y(  1)=Y5 
X (2)=X4 
Y ( 2) = Y4 

IF ( ID8G  .EQ .0 ) GO  TO  53 
PRINT  52 

52  FORMAT (*1*) 

DO  50  1=1, NTEMP 
PRINT  51, X(I) , Y( I ) 

50  CONTINUE 

51  FORMAT(lX,2E16.8) 

ENCPOINTS  FINISHED,,  GET  SLOPES 

53  T2=0 • 0 
NM=NTEMP-2 
DO  3 N=3,NM 
T 1=  T2 

DO  4 J=  1,4 
JJ=N+J-2 
JK=  N+ J-3 

S(J)*(Y  (JJ)-Y(JK)  )/<X  (JJ)-X(JK)  ) 

4 CONTINUE 


IQU  ALS=  0 

00  5 J=i,3 

JJ=J+1 

00  5 K=JJ,4 

IF(S(J)-S(K))5,6,5 

6 IQUALS=IQUALS+1 
JSAVE (IQUALS)=J 
KS  A VE( IQUALS) =K 

5 CONTINUE 

IF ( IQUALS. EQ . 0)  GO  TO  8 
IF (IQUALS .EQ .2)  GO  TO  7 
GO  TO  9 

7 T 2=S(  2) 

GO  TO  20 

9  IF (IQUALS. GE. 3)  GO  TO  7 
IF(IQUALS.NE.l)  GO  TO  17 
GO  TO  10 

17  PRINT  18, IQUALS 

18  F0RMAT(1X,*IQUALS=*,I5) 

10  JS= JSAVE (IQUALS) 

KS=JS+KS AVE ( IQUALS) 

IF ( (KS-2* (KS/2)) . EQ.O)  GO  TO  11 
T2=S( JS) 

GO  TO  20 

11  H2  = ABS (S ( 4J  -S  ( 3) ) 

H3=ABS(S(2)-S(1)) 

GO  TO  12 

8 W2=SQRT (ABS ( (S (1) -S (3 ) ) * (S (3) -S (4 ) ) ) ) 

H3=SQRT ( ABS ( (S ( 1) -S ( 2) ) * ( S( 2)  -S  ( 4)  ) ) ) 

12  T2=  (W2*S(  2)  + W3  *S (3) ) /(H2+W3) 

20  IF  (N.EQ.3)  GO  TO  3 

NN=N-1 

P 0 (NN ) = Y (NN) 

Pl(NN)=Tl 

P2 (NN)  = ( 3 .0  * (Y (N)-Y (NN) )/(X(N) -X (NN ) ) -2.*T 1-T2)/ (X(N)-X(NN) ) 
P3 (NN)  =(T1+T2-2.*(Y(N)-Y(NN)  )/(X(N)  -X(NN))) /((X(N)-X(NN) ) **2) 
3 CONTINUE 

00  30  N=1,NMAX 
X ( N) =X( N+2) 

Y ( N) *Y ( N+2 ) 

PO (N) =P  0 (N ♦2) 

PI ( N) =P 1 (N  *2 ) 

P2 (N)=P2 (N+2) 

P3(N)  =P  3 ( N ♦ 2 ) 

30  CONTINUE 
PO ( NMAX) =0 • 

PI (NMAX)-O. 

P2 (NMAX) =0  » 

P3 (NMAX) = P « 

RETURN 

ENO 
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A4.  Monte  Carlo  Code  for  Scattering  in 
the  Slab  Geometry 


PMtCEmm 


PJiTtS 


BLANK-Nd T FILMED 


o o o o o o 


PROGRAM  MCTRN  (INPUT, OUTPUT, TAPE2,TAPE3) 

this  particular  version  of  the  monte  carlo  code  was  used  for  the 

NEUTRON  SCATTER  IN  CARBON  CALCULATION 

COMMON/MC/ST  0 ( 7, 102L) , NCOLL, CTHO, CTH , STH, PHI , CPHI , SPHI ,EGY,CPHIO , 
1SPH 10, EO , SIGO , AM  BDA ,N ,1 RA, IRB , IRC, IRD , IFLAG, M AX  COLL ,SIC (20 ) , LCHR, 
2ENRGY (20) , LMAX ,X0, YO , ZO , X , Y, Z , ECUT, CL AB, THICK ( 11) , NM AX,ZMIN, ZMAX 
3, NPRNT, AMASS, RATIO, CTHC 
OATA  IGO/O/ 

1 REWIND  2 
IG0=IG0+1 

SUBROUTINE  SETRUN  READS  IN  THE  NECESSARY  PARAMETERS  To  START  THE 

CALCULATION 

CALL  SETRUN ( IGO) 

5 N=N*1 

CALL  SETHIS 
CALL  SCORE 
20  CALL  PENET 

IF(IFLAG.NE.O)  GO  TO  6 
CALL  ENERGY 
IF(IFLAG.NE.O)  GO  TO  fc 
CALL  SCORE 
CALL  ANGLES 
GO  TO  2 u 

6 CALL  SCORE 
IF(N-NMAX)  5,100,100 

100  WRITE (2) ((STO(K,L> ,K= 1,7), L*l, LMAX) 

IF(NPRNT.NE.O)  PRINT  2, ( (STO ( K, L > , K= 1, 7) , L= 1 ,LM AX) 

2 F0RMAT(1X,7E16.9) 

00  7 K=  1,  7 

DO  7 L=1,LMAX 
STO(K,L)=0.0 

7 CONTINUE 

WRITE (2) ( (STO (K,L> ,K=1,7) ,L=1,LMAX) 

REWINO  2 
CALL  SUMRY (IGO) 

PRINT  50, IRA, IRP, IRC, IRD 
50  F0RMAT(1X,«»022> 

IF(  IGO. LT  .2)  GO  TO  1 

STOP 

END 
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SUBROUTINE  SETRUN(IGO) 

CCHMCN/MC/STO(7,1024) , NC OLL, CTHO , CTH, STH,PHI, CPH I,S PHI ,EGY ,CPHIO , 
1SPHIO,EC,SIGO,AMBDA,N,IRA,IRB,IRC,IRD,IFLAG,MAXCOLL,SIG(20) ,LCHR, 
2ENRGY  (20) ,LHAX, XO,YO, ZO, X, Y, Z , ECUT, CLAB,THIC K (11) ,NMAX,ZMIN, ZMAX 
3,NPRNT, AMASS , RATIO, CTHC 

DATA  CPHI 0,S PHIO, PI, ZMIN, ZMAX, N/ 1.0, 0.0, 3. 141 59265, 0.0, 100 0.0,0/ 
OATA  ECUT/0 . 0/ 

DATA  SIG/.201,. 217, . 233 , . 241 ,. 249 , . 257 , .297 , .321, .329, .361- .369, 
1.377, «3o5  , .385, .385,. 385/ 

DATA  E N RG Y/l. 0,0. 9, 0.8, 0.7 ,0.6,0.5,0.4,0.3,0.2,0.1,0.09,0.08,0.06 
10.  05,0.  01,0.  25E-7/ 

IE  (IGO.GT • 1)  GO  TO  10 

READ  1 , NMAX, LMAX , MAXC  OLL ,NPRNT 

NM AX  - TOTAL  NO.  OF  MCNTE  CARLO  HISTORIES 

LMAX  - SIZE  OF  COLLISION  SITE  CHARACTERISTIC  BLOCK  TO  EE 

STORED  ON  TAPE  OR  DISK  UNTIL  PROCESSING  TIME 

MAXCOLL  - MAXIMUM  NO.  OF  COLLISIONS  PER  HISTORY  TO  BE  ALLOWED 
NPRNT  - DEBUG  PRINT  CONTROL  PARAMETER 

NPRNT  EQUAL  TO  ZERO  SUPPRESSES  DEBUG  PRINTOUT 
NPRNT  NOT  EQUAL  TO  ZERO  ACTIVATES  DEBUG  PRINTOUT 
READ  2, IRA, IRB, IRC, IRO 

IRA,IRB,IRC,IRD  - STARTING  RANDOM  NUMBERS 

THESE  ARE  USED  IN  CONJUNCTION  WITH  A CDC 
SUPPLIEO  RANDOM  NUMBER  GENERATOR 
READ  3,E0,X0,Y0,Z0,SIG0 
EO  - INITIAL  PARTICLE  ENERGY 
XO, YO»ZO  - INITIAL  PARTICLE  COORDINATES 
SIGO  - INITIAL  MACROSCOPIC  CROSS  SECTION 
READ  3, AMASS 

AMASS  - MASS  OF  SCATTERING  CENTER  OR  TARGET  NUCLEUS 

PRINT  4, NMAX, LMAX, MAXCOLL 

PRINT  5, IRA, IRB, IRC, IRD 

PRINT  6 ,EO ,XO,YO,ZO 

PRINT  6,  AMASS 

2 FORMA T( 402  0) 

1 FORMAT (4110) 

3 FORMAT ( '5F10.  0) 

4 FORMAT(*X,3I10) 

5 F0RMAT(1X,4022) 

6 FORMAT( IX, 5F10. 0) 

10  N-0 

LCHF=0 
DO  7 M=  1 , 7 
DO  7 L=1,LM AX 
STO(M,L)=0 .0 

7 CONTINUE 
RE T URN 
END 
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SUBROUTINE  SETHIS 

COMMON/MC/STO<7, 10 2A>  ,NC OLL ,CTHO ,CTH ,STH,PHI ,CPHI ,SPHI,EGY  ,CPHI0, 
1SPHIO,EO,SIGO,AMBOA,N,IRA,IRB,IRC,IRD,IFLA6,MAXCOLL,SIG(20),LCHR, 
2ENRGY(20) ,LMAX,XO, YO,ZO,  X, Y,Z,ECUT,CLAB, THICK (11) ,NMAX  ,ZMIN*ZMAX 
3,NPRNT  , AMASS , RATIO, CTHC 
NCOLL*0 
X=XO 
Y=YO 
Z=ZO 

CPHl=CPHIO 
SPHI=SPHIO 
PH  1=0. 0 

C'.LL  RN2  (IRA,RA) 

CTH=CTHO=R A 
CTH=SQRT(1.-CTH**2) 

EGY=EO 

AM80A=1./SIG0 

IFLA.G*0 

RETURN 

ENO 


SUBROUTINE  PENET 

COHHON/MC/STO  (7,1021.)  ,NCOLL , CTHO, CTH, STH,  PHI , CPH I , SPHI  ,EG  Y.CPHIO  , 
1SPHIO,EO,SIGO,AMBOA,N,IRA,IRB,IRC,IRD,IFLAG,MAXCOLL,SIG(20),LCHR, 
2ENRGY (20) , LMAX ,X 0,Y 0 , ZO , X ,Y , Z ,ECUT ,CL AB ,T HICK (1 1 ) , NH AX,Z HIN, Z MAX 
3, NFRNT, AMASS, RATIO, CTHC 
X1=X 
Y1=Y 
Z1=Z 

CALL  RN2 (IRB ,RB) 

S=- ALOG (R8)* AMBOA 
Z=Z1*S*CTH 

IF (7.GT.ZMIN)  GO  TO  10 
Z=  ZHIN 

S=  (ZMIN-ZD/CTH 
IFLAG=1 

10  X=mS*STH*CPHI 
Y=Y1*S*  STH*  SPHI 
NCOLL=NCOLL*l 

IF(NCOLL.EQ.MAXCOLL)  IFL  AG=  1 

IF(Z.GT.ZMAX)IFLAG=1 

RETURN 

ENO 
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• " hjka. 


subroutine  energy 

CCMMON/MC/STO (7* 1024) ,NCOLL,CTHO,CTH,STH,PHI,CPHI,SPKI,EGY,CPHIO 
lSPHIO,EO,SIGO,AMBOA ,N ,IRA , IRB ,IRC ,IRO, IFL AG, HAXCOLL, S7G( 20) , LCHR 
2ENRGY(20),LMAX,XO,YO,ZO,X, Y,Z,ECUT,CLAB, THICK (11) ,NMAX  ,ZMIN,ZMAX 
3, NPRNT, AMASS, RATIO, CTHC 
DATA  PI/3.14159265/ 

CALL  RN2 { IRO.RO) 

CTHC=2* *RO- 1 « 

RATIO= (1 • ♦2 .* AMASS*CTHC+AM ASS**  2) / ( 1 • AM ASS*  AM ASS*" 2) 

EGY=EGY*RATIO 

IF(EGY. GT.ECUT)  GO  TO  1 

TrLAG=l 

RETURN 

1  00  2 1=1,16 

2 CONTINUE 
SIGMA=SIG(16) 

GO  TO  4 

3 11=1-1 

SIGMA=( EG Y-ENRG  Y ( II) ) /{ENRGY( I) -ENRGY (II)  >* (SIG ( I) -SI6 (II) > ♦ 
lSIG (II) 

4 CONTINUE 
AMBDA=1. /SIGMA 
RETURN 

ENO 


SUBROUTINE  ANGLES 

COMMON/MC/STO( 7, 1024) ,NCOLL,CTHO,CTH,STH, PHI ,CPHI, SPHI  ,EGY,CPH » 0 
1SPHI0,E0,SIG0,AMB0A,N.IRA,IRB,IRC,IR0, IFL AG, M AXCOLL , SIG( 20) , LCHR 
2ENRGY12  0)  , LMA  X, XO, YO, ZO, X, Y,Z,ECUT, CLAB, THICK (11) , NM AX  ,ZMIN, ZMAX 
3 ,NPRNT , AMASS ,RATIO,CTHC 
DATA  THOPI/6. 283185307/ 

C OM  = { 1 . +AMASS*CTHC> /( (1. +AMASS)*SQRT (RATIO) ) 

SOM=SQRT(l.-COM**2) 

CALL  RN2( IRC, RC) 

RHO=THOPI *RC 
CRHO=COS(RHO) 

SRHO=SIN(RHO) 

STH1=STH 

CTH1=CTH 

CTH=CTH 1 *COM+STH1#SOM*CRHO 
STH=SQRT (l.-CT  (**2) 

IF(STHl.EQ.O.O.OR.STH.EQ.O.O)  GO  TO  1 
Cl= (C0M-CTH*CTH1) /(STH’STHl) 

Sl=  SRHO^SOM/STH 

CPHI1=CPHI 

SPHI1=SPHI 

CPHI=CPHI1*C1-SPHI1*S1 
SPHI=CPHI1*SH-SPHI1*C1 
GO  TO  2 

1 CPHI=CRHO 
SPH I=S RHO 

2 CONTINUE 

PHI=ATAN2 ( SPH I, C PHI) 

RETURN 

ENC 
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SUBROUTINE  SCORE 

COMMON/ MC/STO( 7, 1024) ,NCOLL , CTHO,CTH ,STH,PHI , CPHI ,5PHI ,EGY ,CPHIO 
lSPHIO,EO,SIGO,AMBn*,N,IRA,IRB,IRC,IRD,IFLAG,MAXCOLL,SIG(20),LCHR 
2ENRGY  (20)»LMAX»X<J,YO  ZO,  X,  Y,  Z,  ECUT,  CLAB,  THIC  K(ll ) ,NMAX,ZMIN,  ZMAX 
3,NPRNT,AMASS,£ATIO,C1HC 
LCHR*LCHR+1 
STO  ( 1»LCHR)  =Z 
STO ( 2>LCHR) - CTHO 
STO  (3  >LCHR)=  '5TH 
STO  (4»LCHR)*'JTH 
STO(5,LCHR)=PHI 
ST0(6,LCHR)=EGY 
ST0(7,LCHR)=FL0AT(NC0LL> 

IF  (LCHR.LT .LMAX)  GO  TO  1 

WRITE (2) ( (STO (K  »L) ,K=1,7) ,L=1,LMAX> 

IF  (NPRNT.NE.  0 ) PRINT  2,  ( (STO  ( K,  L ) , K=  1,  7)  ,L=1 , LM  AX) 

2 F0RMAT(1X,7E16.9) 

LCHR=0 

DO  3 K=l, 7 
00  3 L=1,LMAX 
STO(K,L)  = 0,,0 

3 CONTINUE 
1 CONTINUE 

RETURN 

END 


SUBROUTINE  SUMRY(IGO) 

COMMON/ MC/ST0(7  , 102A)  ,NC0LL  ,C  THO  ,CTH,  STH,  PHI , CPH I S PH  I ,EG  Y,  CPHIO 
1SPHI0,E0,SIG0,AMB0A , N ,IRA , IRB , IRC , IRO, IFL AG.MAXCOLL ,SI G< 20 ) , LCHR 
2ENRGY(2  0) ,LM AX ,XO , YO , 20 ,X , Y , Z ,ECUT ,CLAB, THICK (11 ) ,NMAX,ZMIN, ZMA X 
3, NPRNT, AMASS, RATIO, CTHC 
DIMENSION  TRAN(10  , Al)  ,BACK(10,A1) 

OIMENSION  EGG(IO)  ,FG2  (10  ),  COUNT  (1 0 ) 

01  MEN  SION  SBK(10, 41)  ,STR(  10,41) 

OIMENSION  AVT(10,Al),AVB(10,Ai> 

DATA  EPSL/0.0001/ 

OATA  THICK/2.5,5. 0,7.5, 10. 0, 12. 5,15. 0,17. 5,20.0 ,22 .5 ,25.0 ,1000./ 
DATA  ITER/2/ 

OATA  STR,SBK,AVT,  AVB/A10  *C  . ,410*0.  ,410*0.  ,410*0./ 

NFILES=  0 

1 FORMAT ( 15) 

IF ( NFILES . EQ . 0 ) GO  TO  1000 

DO  2 K=l, NFILES 

DO  3 1*1,10 

REAO(3) II, TK 

00  A NC=1 , HA XCOLL 

READ (3) NQ, TRAN (I, NC) , BACK (I, NC) 

A CONTINUE 
3 CONTINUE 

2 CONTINUE 

1000  DO  1001  J=1,A1 
00  1001  1=1,10 

EGG (I ) = EG2 (I ) =COUNT  ( I ) = 0 . 0 
TRAN(  I,  J)  = BACK  (I , J)  =0.0 

1001  CONTINUE 

100  REAO ( 2) ( (STO (K,L)  , K=1 ,7)  ,L=1,IHAX) 

00  101  L=1,LHAX 

IF(STO(2,L).EQ.O.O.AND.STO(6,L).EQ.O.O)GO  TO  500 
IF (ST 0(7, L) .NE.O.)  GO  TO  5 
IOLC=  1 

IF ( ITER . EQ. 1)  WF=STO(2,L) /FLOAT (NMAX) 

IF  (ITER .EQ .2)  WF  = 1. O/FLOAT (NMAX) 

IZT  OP=l 
GO  TO  101 

5 Z=STO(l,L) 

NC=IFIX(ST0(7,L) *0.0001) 

EGG(NC)=EGG(NC)+ST0(6,L) *WF 
EG2 (NC)  = EG2( NC) *NF* (STO( 6, L) ) **2 
COUNT (NC)=COUNT (NC)*WF 
IF(Z.GT.ZMIN)  GO  TO  S 
IF ( IZTOP. GE. 10)  GO  TO  101 
DO  11  I B= IZT OP, 10 
BACK(IB,NC)=BACK(IB,NC) +HF 
11  CONTINUE 
GO  TO  101 

6 DO  10  IZ=i,ll 

IF(Z.GT,  THICK(IZ)  ) GO  TO  10 
IF(  IZ.EQ.  1)  GO  TO  101 
IS  = IZ 

IP(IS.LE. IZTOP)  GO  TO  101 

IZTOP=IS 

IQ=IS-1 

DO  12  IT=IOLD,IQ 


TRAN  (IT  ,NC)  = TRAN(IT,NC)  + WF 
12  CONTINUE 
IOLO=IZTOP 
GO  TO  101 
10  CONTINUE 
101  C0NTINUE 
GO  TO  100 

500  PRINT  74 
FLT=FLOAT ( ISO) 

OO  801  1=1,10 

OO  801  NC=1 , M AXCOLL 
STR (I,NC)=STR(I,NC)  +TRAN(I,NC> **2 
SBK  (I,NC)=S0K(I,NC) *0ACK  <I,NC)**2 
AVT(I,NC)=AVT(I,NC>  +TRAN(I,NC) 

S0K(I,NC)=S0K(I,NC)+8ACK  <I,NC)**2 
AVT(I,NC)=AVT<I,NC> ♦TRAN(I.NC) 

AV0(I,NC)=AV0(I,NC) + 0ACK (I, NC) 

801  CONTINUE 

DO  501  1=1,10 
IF ( ITER.EO .1 ) PRINT  75 
IF(ITER.EQ.2)PRINT  76 
WRITE (3) I TER, THICK (I) 

PRINT  503 .THICK (I) 

OO  502  NC= 1, MAXCOLL 
NQ=NC  -1 

AV1=AVT(I,NC)/FLT 
AV2=AVB(I,NC)/FLT 
ST Dl= SORT (STR (I ,NC) /FLT-A Vl**2) 

STC2=SQRT(SBK(I,NC)/FLT-AV2*»2> 

PRINT  504,NQ,AV1,ST01,AV2,STC2 
WRITE(3)NQ,TRAN(I,NC) ,0ACK(I,NC) 

502  CONTINUE 

501  CONTINUE 

503  FORM AT (//////, IX, *THICKNESS=*  » F5 • 27) 

504  FORMAT(lX,I5,4E16.9) 

74  FORMAT(*l*) 

75  FORMAT (IX, *COSINE  SOURCE*/) 

76  FORMAT ( IX, *ISOTROPIC  SOURCE*/) 

M X=MA  XCOLL -1 

00  80  NC=1 ,MX 

IF( count ( no  .le.epsl)  go  to  so 
EG E= EGG (NC) 'COUNT  (NC) 

VAR=EG2 (NO /COUNT (NC)-EGB**2 
ST0=SQRT (VAR ) 

PRINT  81, NC, EG0,VAR,STO 

81  FORMAT ( IX , *ORDER  OF  SCATTERING  =* ,15 ,2 X,* AVER AGE  ENERGY  =*,E16.9,2 
1X,*VARIANCE=*,E16.9,2X,*ST0.  DEV.  =*,E16.9> 

80  CONTINUE 
REWIND  2 
RETURN 
ENO 
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